20 lines
469 B
Plaintext
20 lines
469 B
Plaintext
Class::Factory - Base class for dynamic factory classes
|
|
|
|
package My::Factory;
|
|
|
|
use strict;
|
|
use base qw( Class::Factory );
|
|
|
|
# Add our default types
|
|
|
|
My::Factory->add_factory_type( perl => 'My::Factory::Perl' );
|
|
My::Factory->add_factory_type( blech => 'My::Factory::Blech' );
|
|
|
|
1;
|
|
|
|
# Create new objects using the default types
|
|
|
|
my $perl_item = My::Factory->new( 'perl', foo => 'bar' );
|
|
my $blech_item = My::Factory->new( 'blech', foo => 'baz' );
|
|
|