Help for this page

Select Code to Download

Select or download this

package ClassFactory;

...
  my ($self,$class) = @_;
  return $class->new(%$self);
}

Select or download this

my $factory = Class::Factory->new( auth vars );

my $obj = $factory->create("Class");
my $subobj = $factory->create("Class::SubClass");