view release on metacpan or  search on metacpan

Void.pm  view on Meta::CPAN

use 5.006;
use vars qw($VERSION);
use base qw(Class::BlackHole);
use warnings;
use Want;

$VERSION = '0.02';

sub import {
    my $class = shift;
    my $pkg = caller(0);

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