[Israel.pm] Getting calling subroutine name

[Natty]

Hi,

Is it possible to get the calling subroutine name somehow?
assuming _getSensorVoltage(..) sub belongs to Sensor package:

sub _getSensorVoltage
{
     my $_self     = shift;      # This gets 'Sensor', since the calling
package is Sensor (Assuming no inheritance is made)
     m   $_caller  =              # How to get  '_getSensorVoltage' if
possible?
    ....
}

Thanks,

_______________________________________________
Perl mailing list
Perl@perl.org.il
http://mail.perl.org.il/mailman/listinfo/perl