my ($code, $params) = split /----\s*/, $_;
my ($names, $ret, $exp, $seq) = split /\s*#\s*/, $params;
my ($code, $params) = split /----\s*/, $_;
my ($names, $ret, $exp, $seq) = split /\s*#\s*/, $params;
}
}
}
is prototype('main::foo'), undef, "foo's prototype was preserved";
is prototype('main::bar'), '', "bar's prototype was preserved";
}
}
}
is prototype('main::foo'), undef, "foo's prototype was preserved";
is prototype('main::bar'), '', "bar's prototype was preserved";
+is prototype('main::X'), '', "X's prototype was preserved";
+ok Sub::Op::_constant_sub(do { no strict "refs"; \&{"main::X"} }),
+ 'X is still a constant';