package Factory; sub get_new { my( $class, $type ) = @_; return $type->new; } [download]
In reply to Re: Abstract Factory by BUU in thread Abstract Factory by Khatri