automates the Factory design pattern
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' );  

Maintainer: The OpenBSD ports mailing-list <ports@openbsd.org>

WWW: http://search.cpan.org/dist/Class-Factory/
