Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
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;

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 avoiding work at the Monastery: (9)
As of 2016-06-29 12:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My preferred method of making French fries (chips) is in a ...











    Results (379 votes). Check out past polls.