Select Code to Download

package My::Parent;
use warnings;
...
sub _frobnicate { $_[0]{a} + $_[0]{b} }

__PACKAGE__

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

my $p = 'My::Parent'->new( { a => 2, b => 3 } );
is $p->frobnicate, 5, 'frobnicates';

package My::SimpleChild;

...
}

__PACKAGE__

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

my $s = 'My::SimpleChild'->new({ a => 2, b => 3 });
is $s->frob, 5, 'frobs';

package My::MooseChild;
use Moose;
...

no Moose;
__PACKAGE__->meta->make_immutable

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

my $m = 'My::MooseChild'->new(a => 2, b => 3);
is $m->frob, 5, 'frobs';

package My::DelegChild;
use Moose;
...

no Moose;
__PACKAGE__->meta->make_immutable

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

my $ch = 'My::DelegChild'->new(a => 2, b => 3);
is $ch->frob, 5, 'frobs';

($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,