Re^3: Is there a better way to do this?

Select or download this

Subroutine MyClass::before redefined at [...]/5.22.0/Role/Tiny.pm line
+ 58.
Subroutine MyClass::after redefined at [...]/5.22.0/Role/Tiny.pm line 
+58.
Subroutine MyClass::around redefined at [...]/5.22.0/Role/Tiny.pm line
+ 58.
Subroutine MyClass::with redefined at [...]/5.22.0/Role/Tiny.pm line 6
+7.

Select or download this

package MyClass::Child;

...
sub bar { return 'bar'; }

1;

Select or download this

package MyClass;

...
sub foo { return 'foo'; }

1;

Select or download this

$ perl -MMyClass -E '$o = MyClass->new; say $o->foo, $o->bar;'
horribly at MyClass/Child.pm line 5.

Select or download this

package MyClass;

...
sub foo { return 'foo'; }

1;

Select or download this

$ perl -MMyClass -E '$o = MyClass->new; say $o->foo, $o->bar;'
foobar

Select Code to Download