package My_Package;
use Moose;


my $obj = My_Package->new();

sub routine {
    my $self = shift;
    ...
}


sub abcd {
	...
	$obj->routine();
	...
}

sub efgh {
	...
	$obj->routine();
	...
}