#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };
{ package My;
sub one { print "123"; }
sub two;
}
say ${My::}{one}; # *My::one
say ${My::}{two}; # -1
say ${My::}{three}; #
say defined *My::one{CODE}; # 1
say defined *My::two{CODE}; # 1
say defined *My::three{CODE}; #
say exists &My::one; # 1
say exists &My::two; # 1
say exists &My::three; #
say defined &My::one; # 1
say defined &My::two; #
say defined &My::three; #
####
sub four (&@);
# ...
say ${My::}{four}; # &@
##
##
sub five (&@) :method;
say ${My::}{five}; # *My::five