Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: Conditional inheritance strategy

by happy.barney (Pilgrim)
on Oct 28, 2010 at 09:52 UTC ( #867968=note: print w/ replies, xml ) Need Help??


in reply to Conditional inheritance strategy

few notes:
use dispatch map

our $dispatch_map = { xml => 'My::XML', json => 'My::JSON', }; sub new { ... die unless exists $dispatch_map->{$args{source}}; my $class = $dispatch_map->{$args{source}} Module::Load::load ($class); $self->{engine} = $class; # or $class->new ($self); }
you can call foreign methods ...
$self->My::JSON::_init; # or my $method = $self->{engine} . '::_init'; $self->$method;


Comment on Re: Conditional inheritance strategy
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://867968]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (5)
As of 2014-07-24 21:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (167 votes), past polls