Select Code to Download

#!/usr/bin/perl
use warnings;
...

# Attribute (context) does not pass the type constraint because: Valid
+ation failed for '__ANON__' with value "unknown" at constructor Child
+::new (defined at ./1.pl line 44) line 39
my $ch = 'Child'->new(context => 'unknown');

{   package Child::Creator;
    use Moose::Role;
...
}

...

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,