sub run {
    my $class = shift;
    $class->new(@_)->_run();
}

sub _run {
   my ($self) = @_;
   ... do stuff with $self ...
}

# In user
Class->run(...);