diff options
Diffstat (limited to 'ext/B/B.pm')
| -rw-r--r-- | ext/B/B.pm | 20 |
1 files changed, 16 insertions, 4 deletions
diff --git a/ext/B/B.pm b/ext/B/B.pm index d00f51229a..97dd0c7e4c 100644 --- a/ext/B/B.pm +++ b/ext/B/B.pm @@ -843,12 +843,24 @@ DEBUG argument is non-zero, it sets the debugging flag to that. See the description of C<walkoptree> above for what the debugging flag does. -=item walksymtable(SYMREF, METHOD, RECURSE) +=item walksymtable(SYMREF, METHOD, RECURSE, PREFIX) Walk the symbol table starting at SYMREF and call METHOD on each -symbol visited. When the walk reached package symbols "Foo::" it -invokes RECURSE and only recurses into the package if that sub -returns true. +symbol (a B::GV object) visited. When the walk reaches package +symbols (such as "Foo::") it invokes RECURSE, passing in the symbol +name, and only recurses into the package if that sub returns true. + +PREFIX is the name of the SYMREF you're walking. + +For example... + + # Walk CGI's symbol table calling print_subs on each symbol. + # Only recurse into CGI::Util:: + walksymtable(\%CGI::, 'print_subs', sub { $_[0] eq 'CGI::Util::' }, + 'CGI::'); + +print_subs() is a B::GV method you have declared. + =item svref_2object(SV) |