Lines Matching refs:baz
10 use vars qw($foo $bar $baz $ballast);
51 my $coderef = sub {$baz += fib($ballast)};
54 $baz = 0;
57 isnt ($baz, 0, "benchmarked code was run");
64 $baz = 0;
67 isnt ($baz, 0, "benchmarked code was run");
82 $baz = 0;
83 my $again = countit(1, '$baz += fib($ballast)');
85 isnt ($baz, 0, "benchmarked code was run");
198 $foo = $bar = $baz = 0;
201 Baz => sub {++$baz} });
210 is ($baz, $iterations, "Baz code was run $iterations times");