view release on metacpan or  search on metacpan

Void.pm  view on Meta::CPAN

    my @void = qw(void);
    push @void, qw(empty nil noop nothing null)
	if scalar grep { $_ eq ':all' } @_;

    no strict 'refs';
    for(@void){
	*{$pkg . "::$_"} = sub :lvalue {
	    lnoreturn
		if want qw(LVALUE ASSIGN);
	    return my $self = bless sub {}, $class
		if want qw(OBJECT LVALUE);
	    return;
	};
    }
}

1;

__END__

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;
}

package main;

use strict;