File Coverage

blib/lib/Acme/Void.pm

Criterion	Covered	Total	%
statement	32	33	96.9
branch	6	6	100.0
condition			n/a
subroutine	9	10	90.0
pod			n/a
total	47	49	95.9

#
# $Id: Void.pm 6 2005-09-27 15:18:00Z ryo $
#

package Acme::Void;

use strict;
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);
	    return my $self = bless sub {}, $class
		if want qw(OBJECT LVALUE);
	    return;
	};
    }
}

1;

__END__