Acme-Void

 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;

t/02_method_call.t  view on Meta::CPAN

package __test;

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

sub new {
    return bless \my $self, shift;
}

sub run {
    my $self = shift;
    $self->void;
}

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;

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;