#!/pdd/100/bin/perl5.16/bin
# Filename: ChainOfResponsibilityIf
package ChainOfResponsibilityIf;
use Moose::Role;
requires 'handleRequest';
requires 'addHandler;

##</code><code>##

#!/pdd/100/bin/perl5.16/bin
# Filename: CoRHandler.pm
package CoRHandler;
use Moose;
use Carp qw(confess croak);
with 'ChainOfResponsibilityIf';
# implementation of roles not shown

##</code><code>##

#!/pdd/100/bin/perl5.16/bin
# Filename: GenericCommandHandler.pm
package GenericCommandHandler;
use Moose;
extends 'CoRHandler';

override  '_processCommand' => sub {
}

##</code><code>##

has 'successor' => (
    is => 'rw',
    isa => 'ChainOfResposibilityIf',
);

##</code><code>##

Attribute (successor) does not pass the type constraint because: Validation failed for 'ChainOfResposibilityIf' with value GenericCommandHandler=HASH(0x31bb698) at (eval 333)[/pdd/100/bin/perl5.16/lib/Eval/Closure.pm:125] line 8.