package Church;
sub factory_create
{
  my ( $class, %p ) = @_;
  my $new_class = ref($class) || $class . "::" . $p{firm};
  eval "require $new_class" or die $@;
  return $new_class->new(%p);
}
[download]