sub another_constructor {
    my $class= shift;
    my $self= $class->new();
    ....
}