view release on metacpan or  search on metacpan

t/11-existing.t  view on Meta::CPAN

use blib 't/Sub-Op-LexicalSub';

use Test::More tests => 2 * ((2 + 2) * 4 + (1 + 2) * 5) + 2 * (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 $call_blech;
sub blech { ok $call_blech, 'initial blech was called' };

our $called;

{
 local $/ = "####\n";
 while (<DATA>) {
  chomp;