Имя процедуры (ПЕРЛовка) @ DeForum.ru

Вопрос в следующем.
Как узнать из самой процедуры при ее вызове ее имя?
то бишь
к примеру
sub yaya{

а здесь напечатать свое имя 'yaya'

}

понимаю, что можно просто сделать print 'yaya';
но хотелось бы универсальности...

может я чего не того хочу?

MpaK999, все два вопроса:

1. Нафига это нужно?
2. Какое имя должен был бы напечатеть искомый код вот в такой функции?

Код:

$foo = sub { my ($a,$b) = @_; my $c = $a+$b; print "$c"; };
&$foo(1,2);

MpaK999, на сколько мне извесно, то такой возможности нету. :frown:

Остается очень тупой вариант, передавать в функцию еще один параметр с ее названием. :gent:

DeДверь
Логин:
Пароль:
	Автологин