Select Code to Download

Select or download this

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

my $c = 'MyComposed'->new;
say $c->$_ for qw( where role );

Select or download this
```
Composed
yes
```

Select or download this

{   package MyHeir;
    use parent -norequire => 'MyClass';
...

my $h = 'MyHeir'->new;
say $h->$_ for qw( where role );

Select or download this
```
Role
yes
```

Select or download this

my $o = 'MyClass'->new;
'Role::Tiny'->apply_roles_to_object($o, 'MyRole');
say $o->$_ for qw( where role );

Select or download this

{   package MyAround;
    use Role::Tiny;
...
my $o2 = 'MyClass'->new;
'Role::Tiny'->apply_roles_to_object($o2, 'MyAround');
say $o2->$_ for qw( where role );

Select or download this

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