Re^3: Dynamically adding methods to Moo class

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 => "@_" );
   };
}
[download]

use Moops; class Cow :rw { has name => (default => 'Ermintrude') }; say Cow->new->name

Comment on Re^3: Dynamically adding methods to Moo class Download Code

Replies are listed 'Best First'.
Re^4: Dynamically adding methods to Moo class by McA (Priest) on Apr 23, 2014 at 16:54 UTC
Thank you, Tobyink. That's what I meant with "Or do I have to tweak with the symbol table?" in my initial question. I thought that this kind of functionality is somewhere accessible in a more "formal" manner. A kind of: `install_method('method_name', sub {});` [download] Best regards McA	[reply] [d/l]
Re^5: Dynamically adding methods to Moo class by Arunbear (Prior) on Apr 24, 2014 at 12:51 UTC
Not part of Moo, but ... `use Sub::Install; Sub::Install::install_sub({ code => sub { ... }, into => $package, as => $subname });` [download] Link: Sub::Install	[reply] [d/l]