- or download this
eval {
package DB;
@ret = &$sub(@args);
};
- or download this
package Devel::TobyLite;
...
}
}
1;
- or download this
$ ./perl -Ilib -I.. -d:TobyLite -e 'sub x { print qq(ok\n); } sub z {
+x() } z()'
>> entering UNIVERSAL::import
...
ok
<< leaving main::x 3.29017639160156e-05
<< leaving main::z 8.48770141601562e-05