On Sat, Oct 23, 2010 at 07:52:50PM +0200, Shlomi Fish wrote:
> On Saturday 23 October 2010 18:50:44 David Favor wrote:
> > Given an instantiated class object, what's the
> > best way to add additional methods after instantiation.
> >
> > Specifically I'm working with qpsmtpd and desire to
> > add a method is_spooled() to every session, so I can
> > call if ($self->is_spooled) rather then is_spooled($self)...
> >
>
> Maybe try Class::MOP's add_method:
>
> http://search.cpan.org/perldoc?Class::MOP::Class
>
> There are closer-to-the-metal ways but they are probably less recommended.
Or perhaps more recommended:
package A;
sub a { print "a" }
package B;
sub A::b { shift->a; print "b" }
(bless {}, "A")->b;
Just be sure you know what you are doing. Adding a method to somone else's
class can be considered rude. See the NOTE in perldoc perlmodlib.
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
