package Factory; sub get_new { my( $class, $type ) = @_; return $type->new; }