Semantic False Class

gistfile1.pl

package main;
use strict;
use warnings;

package SemanticFalse;
use strict;
use warnings;
use overload bool => sub {
    my $self = shift;

    if ($$self eq 'false') {
        return 0;
    }

    !!$$self;
};

sub new {
    my ($class, $string) = @_;
    $string ||= '';
    bless \$string, $class;
}

package main;
use Test::More;

my $true  = SemanticFalse->new('true');
my $false = SemanticFalse->new('false');

ok $true;
ok !$false;

done_testing;