view release on metacpan or  search on metacpan

t/descartes.t  view on Meta::CPAN

if(  ! eval { require Acme::ESP; 1 }  ) {
    warn $@, $/;
    exit( 1 );
}
ok(1);
Acme::ESP->import();
ok(1);

local $/;
eval join '', "\n#line ", 3+__LINE__, '"', __FILE__, qq("\n), <DATA>, "; 1"
    or  die $@;
__END__

$i= "person";
1 for $i.oO("I exist");
$Rene{descartes}++ if $i . o O ( );
ok( exists $Rene{descartes} );

ok(  $i .oO ( "Did I leave the oven on?" ), "I exist" );
ok(( $i . o O { } ), '/leave/' );