use blib 't/Sub-Op-LexicalSub';
-use Test::More tests => 2 *((4 + 2 * 4) + (2 * 5) + 1);
+use Test::More tests => 2 * ((1 + 2) * 4 + (1 + 1) * 5) + (2 + 2) + 4;
our $call_foo;
sub foo { ok $call_foo, 'the preexistent foo was called' }
our $call_bar;
sub bar () { ok $call_bar, 'the preexistent bar was called' }
+sub X () { 1 }
+
our $called;
{
is $called, $calls, "@names: the hook was called the right number of times";
if ($called < $calls) {
- fail for $called + 1 .. $calls;
+ fail, fail for $called + 1 .. $calls;
}
}
}
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';
__DATA__
foo();
&$bar;
----
bar # () #
+####
+is X, 2, 'constant overriding';
+----
+X # 2 # [ ]