[Moscow.pm] найти sub

[Ruslan Zakirov]

$ perl -MData::Dumper -MScalar::Util\ weaken -MB\ svref_2object -E
'sub foo {10}; say sub_name(\&foo); say sub_name(sub {}); say
sub_name(\&Dumper); say sub_name(\&weaken); sub sub_name { my $gv =
svref_2object(shift)->GV; return $gv->STASH->NAME ."::". $gv->NAME }'

main::foo
main::__ANON__
Data::Dumper::Dumper
Scalar::Util::weaken

2012/2/17 Alex Varyanick <q на cono.org.ua>:
> 2012/2/17 Ruslan Zakirov <ruz на bestpractical.com>:
>> 2012/2/17 Alex Varyanick <q на cono.org.ua>:
>>> perl -le 'sub test {}; print *test'
>>
>> perl -MScalar::Util\ weaken -le 'print *weaken'
>> *main::weaken
>
> ага, експортер редкая херь:
> % perl -le 'package A; sub import {*main::test = *A::test} sub test
> {}; package main; import A; print *test'
> *A::test
>
> --
> Varyanick I. Alex
> icq: 102 575 440
> skype: cono..
> q на cono.org.ua
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org



-- 
Best regards, Ruslan.