Don't forget that Moo is still Perl. You can still do all the stuff you could normally do using Perl!
for my $t (qw/ INFO BINFO WINFO SCHMINFO /) { no strict 'refs'; *{lc $t} = sub { my $class = shift; $class->new( typ => $t, other => "@_" ); }; }
In reply to Re^3: Dynamically adding methods to Moo class
by tobyink
in thread Dynamically adding methods to Moo class
by McA
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |