Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

Re^3: Dynamically adding methods to Moo class

by tobyink (Abbot)
on Apr 23, 2014 at 16:41 UTC ( #1083389=note: print w/replies, xml ) Need Help??

in reply to Re^2: Dynamically adding methods to Moo class
in thread 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 => "@_" ); }; }
use Moops; class Cow :rw { has name => (default => 'Ermintrude') }; say Cow->new->name

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 {});

    Best regards

      Not part of Moo, but ...
      use Sub::Install; Sub::Install::install_sub({ code => sub { ... }, into => $package, as => $subname });
      Link: Sub::Install

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1083389]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (4)
As of 2018-05-27 18:27 GMT
Find Nodes?
    Voting Booth?