forked from openkylin/libsub-uplevel-perl
9 lines
148 B
Perl
9 lines
148 B
Perl
|
package Foo;
|
||
|
|
|
||
|
|
# Hook::LexWrap does this, Sub::Uplevel appears to interfere.
|
||
|
|
sub import { *{caller()."::fooble"} = \&fooble }
|
||
|
|
|
||
|
|
sub fooble { 42 }
|
||
|
|
|
||
|
|
1;
|