comment on

You can do that with the symbol table, but using defined and exists is cleaner.

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

Update: added the first paragraph of says.

Update 2: Interestingly, a forward declared sub with prototypes returns the prototypes with the first syntax:

sub four (&@);
# ...
say ${My::}{four};             # &@
[download]

Update 3: ... unless you add an attribute, too, which makes it output the glob name.

sub five (&@) :method;
say ${My::}{five};             # *My::five
[download]

Update 4: The -1 is printed only if you remove all other mentions of My::three, otherwise *My::three is printed.

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

In reply to Re: accessing stashes by choroba
in thread accessing stashes by morgon

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Don't ask to ask, just ask
	PerlMonks