Re: Subclassing a class that uses an internal dispatch table


Your skill will accomplish what the force of many cannot
	PerlMonks

Re: Subclassing a class that uses an internal dispatch table

by broquaint (Abbot)

on Oct 30, 2007 at 13:16 UTC ( [id://648010]=note: print w/replies, xml )

Need Help??

in reply to Subclassing a class that uses an internal dispatch table

I'd probably make use of PadWalker like so:

use PadWalker 'peek_sub';

my $sub  = \&Net::SMTP::Server::Client2::get_message;
my $cmds = peek_sub($sub)->{'%_cmds'};

$cmds->{$_} = __PACKAGE__->can($_) || $cmds->{$_}
  for keys %$cmds;
[download]

Of course that won't support multiple subclasses, but it will work for the simple case of a single subclass. It's "a hack for a hack" if you will.

HTH

_________ broquaint

Comment on Re: Subclassing a class that uses an internal dispatch table Download Code

Replies are listed 'Best First'.

Re^2: Subclassing a class that uses an internal dispatch table
by BrowserUk (Patriarch) on Oct 30, 2007 at 19:18 UTC

PadWalker is one of those things, like the stuff in the B::* namespace, that I view with the same feelings as many people have about string eval.

That said, if you have to hack, your examples makes it look incredibly easy. Thanks.

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."

[reply]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://648010]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others exploiting the Monastery: (3)

As of 2024-04-19 20:04 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found