use feature ':5.16';
use strictures;

use Door;
use Moose::Util  qw( apply_all_roles );

my $main_door = Door->new;

# The Door is Closed
$main_door->knock;  # knock knock

# Open it
apply_all_roles($main_door, 'Opened');
$main_door->knock;  # just come on in!

# Close it
apply_all_roles($main_door, 'Closed');
$main_door->knock;  # knock knock

# Bug ??
say 'Why does this not print ??' 
    if $main_door->DOES('Closed');