view release on metacpan or  search on metacpan

t/2-cached.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use Test::More tests => 2;

BEGIN { use_ok('Acme::ComeFrom') };

sub OK  { ok(1, "comefrom @_") }
sub NOK { ok(0, "comefrom @_") }

$Acme::ComeFrom::CacheEXPR = 0;	# Avoid 'once' warnings

{
    my $i = 1;
    $Acme::ComeFrom::CacheEXPR = 1;

    DUMMY: 0;                   # This does not evalutes the "$i++" below.
    EXPR1: NOK('cached EXPR');
    if ($] eq "FORTRAN") {      # This is never true, but:
        comefrom 'EXPR'.$i++;   # Coming from "EXPR1:" above...
        OK('cached EXPR');      # ...and OKs the test
    }
}

__END__