view release on metacpan or  search on metacpan

t/03_object.t  view on Meta::CPAN

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

push my @test, sub {

    eval {
	void->foo;
    };
    return if $@;

    return 1;
},

sub {

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

    return 1;
},

sub {

    eval {
	void()->foo;
    };
    return if $@;

    return 1;
},

sub {

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

    return 1;
},

sub {

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

    return 1;
},

;

sub foo { 1 }

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