use strict;
use warnings;
-use Test::More 'no_plan';
+use Test::More;
sub fun :lvalue { return my $sv; }
sub X { "what?" }
sub handle_fun {
- my ($pack, $use, $name, $proto) = @_;
+ my ($usepack, $use, $inpack, $name, $proto) = @_;
my $XX = sub (&) {
my $cr = $_[0];
return sub {
is($foo->(), '$a, $b: woot', 'proto declarator ok');
is(X(), 'what?', 'X sub restored ok');
+
+done_testing;