#!/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;        #