Select Code to Download

use feature ':5.16';
use strictures;
...
# Bug ??
say 'Why does this not print ??' 
    if $main_door->DOES('Closed');

package Door;

...
}

1;

package Closed;

...
}

1;

package Opened;

...
}

1;