view release on metacpan or  search on metacpan

test.pl  view on Meta::CPAN

use strict;
use Test::Simple tests => 11;
use Class::Void;

sub is_empty_string($) {
	return 1 if shift eq "";
	return
}

my $null = Class::Void->bla->blub->foo->bar;

ok(is_empty_string($null), "basic tests for empty string behavior");

$null    = Class::Void->new;