File Coverage

blib/lib/Class/Void.pm

Criterion	Covered	Total	%
statement	20	21	95.2
branch	2	2	100.0
condition			n/a
subroutine	10	11	90.9
pod	0	2	0.0
total	32	36	88.8

package Class::Void;
use strict;
use warnings;
use vars qw($VERSION $Nothin $new);
$VERSION = 0.05;

use overload q("")     => sub { "" },  # stringify to the empty string (returning undef is poised to create warnings)
            "nomethod" => sub { shift->new }; # call new for all other overloadable operators

$new = sub {
# private sub so my name space doesnt get polluted which anything that could stop the AUTOLOAD sub from executing
	my $scalar;            # allocate an empty scalar
	bless \$scalar, shift; # bless it into the calling package, and return it
};

sub new {
	$Nothin = $new->(shift) unless defined $Nothin; # define $Nothin once
	return $Nothin;
}

sub can {
	my $class   = shift;
	sub { $class->new }
}

sub AUTOLOAD { shift->new };

sub DESTROY  {}; # autoloading DESTROY would lead to an infinite loop because it'd create
                 # a new object which in turn calls destroy immediately and so on

q

__END__