sub Parent::factory {

    my $type = shift;

    # ...

    $type->new(@_);

}