Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Autocreating Classes

by Joost (Canon)
on Oct 07, 2006 at 12:18 UTC ( #576830=note: print w/ replies, xml ) Need Help??


in reply to Autocreating Classes

There is not really such thing as creating a package: namespaces are just autovivicated as soon as you assign something to a glob (i.e. create a global, sub, filehandle etc) in that namespace. To nearly all intents and purposes an empty namespace is a non-existing namespace.

Since the only thing you're doing with the created package is setting its inheritance chain in @Package::ISA, you can do that directly:

sub inherit_from_A { my $package_name = shift; no strict 'refs'; @{"${package_name}::ISA"} = qw(A); } # create class B1.. inherit_from_A('B1');


Comment on Re: Autocreating Classes
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (16)
As of 2014-07-10 19:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (215 votes), past polls