Re: perl determine a subroutine name by given line

The closest I can come-up with is B::Xref (in the base):


perl -MO=Xref,d script-name.pl
[download]

which gives you the last line-number of each subroutine definition.

Comment on Re: perl determine a subroutine name by given line Download Code

Replies are listed 'Best First'.
Re^2: perl determine a subroutine name by given line by duelafn (Parson) on Aug 05, 2011 at 11:05 UTC
Not quite. It seems to give the line number where the subroutine becomes known to perl. Thus, if the sub is used before it is defined the line numbers will be wrong. Example: `#!/usr/bin/perl use 5.010; say f( 34 ); sub f { $_[0] + 8 }` [download] Then, `perl -MO=Xref,d /tmp/test.pl` gives (among other things): `Package main &f s3` [download] Which is the line where f is used, not defined. `This is perl, v5.10.1 (*) built for x86_64-linux-gnu-thread-multi` [download] Good Day, Dean	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: perl determine a subroutine name by given line
by duelafn (Parson) on Aug 05, 2011 at 11:05 UTC

Not quite. It seems to give the line number where the subroutine becomes known to perl. Thus, if the sub is used before it is defined the line numbers will be wrong. Example:

#!/usr/bin/perl
use 5.010;
say f( 34 );

sub f {
  $_[0] + 8
}
[download]

Then, perl -MO=Xref,d /tmp/test.pl gives (among other things):

    Package main
      &f                s3
[download]

Which is the line where f is used, not defined.

This is perl, v5.10.1 (*) built for x86_64-linux-gnu-thread-multi
[download]

Good Day,
Dean

[reply]
[d/l]
[select]