Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

RE: Runtime loading of arbitrary objects

by merlyn (Sage)
on Aug 21, 2000 at 17:26 UTC ( #28800=note: print w/replies, xml ) Need Help??

in reply to Runtime loading of arbitrary objects

Well, taking your question literally, it's simply:
$class_name = "Calvin::Hobbes"; # from some value above my $new_object = $class_name->new;
There's no magic involved in using a string as a classname.

But perhaps you also intend to dynamically load a require file. In which case, I'd do something like this:

if (grep $class_name eq $_, qw(Calvin::Hobbes Peter::Gabriel Dog::Day: +:Afternoon)) { # must validate the name, or security holes will run rampant eval "require $class_name"; die $@ if $@; $object = $class_name->new; }
Notice the validation there. Essential. Without that, damage will result. Use whatever mechanism you want, but it must match one of the names you are expecting, and certainly not one of the names you are not.

Also, this approach presumes a constant constructor called new. That's not necessarily the case, since Perl doesn't require any constructor called new to be defined. In that case, you'll want a table, like:

my %make_a = qw( Calvin::Hobbes new Peter::Gabriel play Dog::Day::Afternoon watch ); ... if (my $constructor = $make_a{$class_name}) { unless ($INC{$class_name}) { eval "require $class_name"; die $@ if $@; } $object = $class_name->$constructor(); }
The nice thing about this approach is that the table of "how" is automatically the validation table for "permitted".

-- Randal L. Schwartz, Perl hacker

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (2)
As of 2021-04-17 11:02 GMT
Find Nodes?
    Voting Booth?

    No recent polls found