Subject: | Undefined existing subs in class cause error when applying role |
Show quoted text
> perl -e'package ThingRole; use Role::Tiny; package Thing; sub foo; use Role::Tiny::With; use Data::Dumper; print +Dumper(Role::Tiny::_getstash("Thing")); with "ThingRole";'
$VAR1 = {
'BEGIN' => *Thing::BEGIN,
'foo' => -1,
'with' => *Thing::with,
'Dumper' => *Thing::Dumper
};
Can't use string ("-1") as a symbol ref while "strict refs" in use at /home/grinnz/.plenv/versions/5.24.0/lib/perl5/site_perl/5.24.0/Role/Tiny.pm line 374.