use constant test => 5;

if(my $sub = __PACKAGE__->can('test')) {
        print $sub->(),"\n";
}