accessing stashes

morgon has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: accessing stashes by choroba (Cardinal) on Mar 01, 2019 at 17:11 UTC
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]`	[reply] [d/l] [select]
Re^2: accessing stashes by ikegami (Patriarch) on Mar 01, 2019 at 19:12 UTC
`${hash}{foo} ${Pkg::}{foo}` [download] are weird ways of writing `$hash{foo} $Pkg::{foo}` [download]	[reply] [d/l] [select]
Re^2: accessing stashes by morgon (Priest) on Mar 01, 2019 at 18:45 UTC
That comes close, but I want something like this (the code below does NOT work): `use strict; sub hubba { } for my $symbol qw(hubba bubba) { print "$_: "; print defined *My::$symbol{CODE} ? "yep": "nope"; print "\n"; }` [download] That should print `hubba: yep bubba: nope` [download] How can I do that?	[reply] [d/l] [select]
Re^3: accessing stashes by ikegami (Patriarch) on Mar 01, 2019 at 19:14 UTC
`$My::{$symbol}` returns a glob. `NAME{SLOT}` accesses a glob's slot. `BLOCK{SLOT}` accesses a glob's slot. `$NAME{SLOT}` accesses a glob's slot. `EXPR->{SLOT}` accesses a glob's slot.^[1] So, `my $glob = $My::{$symbol}; $glob && { $glob }{CODE} $glob && $glob{CODE} $glob && $glob->*{CODE}` [download] Requires Perl 5.24+. Available in Perl 5.20+ by adding both `use feature qw( postderef );` and `no warnings qw( experimental::postderef );`, or by adding `use experimental qw( postderef );`.	[reply] [d/l] [select]
Re^4: accessing stashes by ikegami (Patriarch) on Mar 01, 2019 at 19:52 UTC
Re^4: accessing stashes by morgon (Priest) on Mar 01, 2019 at 19:25 UTC
Re^5: accessing stashes by ikegami (Patriarch) on Mar 01, 2019 at 19:28 UTC
Some notes below your chosen depth have not been shown here
Re: accessing stashes by NetWallah (Canon) on Mar 01, 2019 at 17:28 UTC
`>perl -E " sub testing{234}; ref($main::{$_}) eq qq\|CODE\| and say q +q\|-->\$main::$_ is a Code ref\| for sort keys %main::" -->$main::testing is a Code ref` [download] As a computer, I find your faith in technology amusing.	[reply] [d/l]
Re^2: accessing stashes by choroba (Cardinal) on Mar 01, 2019 at 17:42 UTC
It works for me in blead, but doesn't output anything in 5.18.2. Also, it doesn't seem to work for other packages than `main`. `map{substr$_->[0],$_->[1]\|\|0,1}[\\|\|{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^ARGV,3]`	[reply] [d/l] [select]
Re^2: accessing stashes by ikegami (Patriarch) on Mar 01, 2019 at 19:57 UTC
It also doesn't work if there's a scalar/array/hash/... with the same name as the sub.	[reply]


XP is just a number
	PerlMonks