my %constructors = ( "one" => \One->new,
                     "two" => \Two->new );

sub factorish {
    my ( $type, @arguments ) = @_;

    my $consref = $constructors{ $type }
        or die "No handler for $type.";

    return $consref -> ( @arguments );
}

##</code><code>##

my %constructors = ( "one" => \&One::new,
                     "two" => \&Two::new );

##</code><code>##

my %constructors = ( "One" => \&One::new,
                     "Two" => \&Two::new );

sub factorish {
    my ( $type, @arguments ) = @_;

    my $consref = $constructors{ $type }
        or die "No handler for $type.";

    return $consref -> ( $type, @arguments );
}