view release on metacpan or  search on metacpan

t/01_void.t  view on Meta::CPAN

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

push my @test, sub {

    eval {
	void;
    };
    return if $@;

    return 1;
},

sub {

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

    return 1;
},

sub {

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

    return 1;
},

sub {

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

    return 1;
},

sub {

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

    return 1;
},

sub {

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