package Door;

use Moo;
use feature ':5.16';
use Moose::Util   qw( apply_all_roles );

sub BUILD {
    apply_all_roles($_[0], 'Closed');  
        # default State at construction
}

sub knock {
    say 'DEFECT: a door should never be nor opened nor closed';
        # This method will be overriden by the Roles 
        # (should never be printed)
}

1;