[Pdx-pm] Newbie question ... built-in for subroutine name?

[Joshua Keroes]

On (Thu, Jul 25 13:18), Earthlink wrote:
> I'm trying to find the perl built-in variable for the current subroutine name (the analog to __FUNCTION__ in gcc)


#!/usr/local/bin/perl -w

use strict;

foo();

sub foo {

    my ($package, $filename, $line, $subroutine, $hasargs,
	$wantarray, $evaltext, $is_require, $hints, $bitmask) = caller(0);

    print <<EOB;
package: $package
file:    $filename
line:    $line
sub:     $subroutine
EOB

}

__END__

sandbox:~/work/sw/lib/ELI-Devices $ perl ~/caller.pl                                    
package: main
file:    /home/jkeroes/caller.pl
line:    5
sub:     main::foo


perldoc -f caller for more info.