in reply to Re: Thorny design problemin thread Thorny design problem
Flavio perl -ple'$_=reverse' <<<ti.xittelop@oivalf
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]