in reply to The costs of packages
Why have minimal packages at all? Would something like this
work for you?
# # This is the file My/Types.pm # package UNIVERSAL; use strict; use warnings; sub create { my $class = $_ [0]; print "Creating class $class\n"; eval <<"--"; package $class; sub create { my \$class = shift; print "Now inside \${class}::create\n"; bless [] => \$class; } -- no strict 'refs'; my $sub = "${class}::create"; goto &$sub; } 1; __END__ #!/usr/bin/perl use strict; use warnings; use My::Types; my $typeA1 = create TypeA; my $typeA2 = create TypeA; my $typeB1 = create TypeB; __END__ Creating class TypeA Now inside TypeA::create Now inside TypeA::create Creating class TypeB Now inside TypeB::create
Abigail
|
---|
Replies are listed 'Best First'. | |
---|---|
Re2: The costs of packages
by dragonchild (Archbishop) on Sep 16, 2003 at 16:24 UTC | |
by Abigail-II (Bishop) on Sep 16, 2003 at 23:36 UTC | |
by BrowserUk (Patriarch) on Sep 16, 2003 at 23:59 UTC | |
by Abigail-II (Bishop) on Sep 17, 2003 at 00:23 UTC | |
by dragonchild (Archbishop) on Sep 17, 2003 at 13:33 UTC | |
by BrowserUk (Patriarch) on Sep 17, 2003 at 17:26 UTC | |
Re: Re: The costs of packages
by BrowserUk (Patriarch) on Sep 16, 2003 at 09:31 UTC |
In Section
Seekers of Perl Wisdom