Select Code to Download

Select or download this

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

Select or download this

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

Select or download this

#!/pdd/100/bin/perl5.16/bin
# Filename: GenericCommandHandler.pm
...

override  '_processCommand' => sub {
}

Select or download this

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

Select or download this

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