Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

How to Get More Info on Anonymous Subroutine

by bichonfrise74 (Vicar)
on May 06, 2010 at 23:08 UTC ( #838804=perlquestion: print w/ replies, xml ) Need Help??
bichonfrise74 has asked for the wisdom of the Perl Monks concerning the following question:

Given the example below, I would like to find a way to tell me more info about the anonymous subroutine.
#!/usr/bin/perl use strict; use Data::Dumper; my @arrays; push( @arrays, sub { return 'hello' }, "hi" ); print join "\n", @{ \@arrays }, "\n"; print Dumper \@arrays; __OUTPUT__ CODE(0x99d9550) hi $VAR1 = [ sub { "DUMMY" }, 'hi' ];
So, I was thinking of something like this.
CODE(0x99d9550) -- to something more meaningful? like print the whole subroutine code.
The Dumper output is almost there, it just needs to print the whole subroutine or at least something that would help in telling me which lines in the code that it used to insert the anonymous subroutine.

Comment on How to Get More Info on Anonymous Subroutine
Select or Download Code
Re: How to Get More Info on Anonymous Subroutine
by ikegami (Pope) on May 06, 2010 at 23:53 UTC
Re: How to Get More Info on Anonymous Subroutine
by bichonfrise74 (Vicar) on May 07, 2010 at 03:03 UTC
    So simple! Thanks.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://838804]
Approved by toolic
Front-paged by ww
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (6)
As of 2014-08-21 10:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (133 votes), past polls