view release on metacpan or  search on metacpan

t/04_trick.t  view on Meta::CPAN

use strict;
use lib qw(blib/lib);
use Acme::Void;

push my @test, sub {

    eval {
	void void void;
    };
    return if $@;

    return 1;
},

sub {

    eval {
	void = void = void;
    };
    return if $@;

    return 1;
};

printf "1..%d\n", scalar @test;
for(0..$#test){
    $test[$_]->()
	or print "not ";

    printf "ok %d\n", $_ + 1;
}