$ 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 <[email protected]>: > 2012/2/17 Ruslan Zakirov <[email protected]>: >> 2012/2/17 Alex Varyanick <[email protected]>: >>> 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.. > [email protected] > -- > Moscow.pm mailing list > [email protected] | http://moscow.pm.org -- Best regards, Ruslan. -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
