Acme-Boolean

 view release on metacpan or  search on metacpan

lib/Acme/Boolean.pm  view on Meta::CPAN

use boolean ':all';

use base 'Exporter';

no strict 'refs';

my @true = map {
    *{"$_"} = \&true;
    $_;
} map { ($_, uc($_)) } qw(yes verifiable trusty accurate actual appropriate authentic authoritative correct dependable direct exact factual fitting genuine honest indubitable kosher lawful legal legitimate natural normal perfect precise proper pure r...

sub NO { false }
sub no { false }

my @false = map {
    *{$_} = \&false;
    $_;
} map { ($_, uc($_)) } qw(untrue wrong incorrect errorneous fallacious untruthful nah apocryphal beguiling bogus casuistic concocted counterfactual deceitful deceiving delusive dishonest distorted erroneous ersatz fake fanciful faulty fictitious fish...

push @false, 'NO', 'no';

my @ad = map {
    *{$_} = sub($) { shift; };
    $_;
} map { ($_, uc($_)) } qw(just so totally very definitely really certainly surely unquestionably undoubtedly absolutely exactly);

sub NOT($) { not shift }
push @ad, 'NOT';

lib/Acme/Boolean.pm  view on Meta::CPAN

    $decision = correct if verifiable;

    sub do_me_a_favor {
       nah;
    }

=head1 DESCRIPTION

This module provides a lot of words for you to express from the very
trustful to the toally errorneous;

=head2 TRUE

These words can be used to refer to a true value:

yes verifiable trusty accurate actual appropriate authentic authoritative
correct dependable direct exact factual fitting genuine honest
indubitable kosher lawful legal legitimate natural normal perfect
precise proper pure regular right rightful sincere straight trustworthy
truthful typical undeniable undesigning undoubted unerring unfaked
unfeigned unquestionable veracious veridical veritable wash

=head2 FALSE

And these words evaluates to false:

no untrue wrong incorrect errorneous fallacious untruthful nah apocryphal
beguiling bogus casuistic concocted counterfactual deceitful deceiving
delusive dishonest distorted erroneous ersatz fake fanciful faulty
fictitious fishy fraudulent illusive imaginary improper inaccurate
inexact invalid lying mendacious misleading misrepresentative
mistaken phony sham sophistical specious spurious unfounded unreal
unsound

=head2 Adjectives

Optionally it's possible to say it more nicely:

    $that = so correct;

t/ad.t  view on Meta::CPAN

use Acme::Boolean;
use Test::More;

plan tests => 14;

ok so correct;
ok very right;
ok very very very perfect;
ok not so wrong;
ok not very errorneous;
ok not absolutely nah;
ok undoubtedly undoubted;
ok TOTALLY UNDENIABLE;
ok NOT EXACTLY LYING;
ok REALLY REALLY TRUE;
ok not ABSOLUTELY FAKE;

ok ! just NO;
ok ! just NO NO;
ok ! just just NO NO NO;

t/false.t  view on Meta::CPAN

use Acme::Boolean;
use Test::More;

plan tests => 19;

ok !untrue;
ok !wrong;
ok !incorrect;
ok !errorneous;
ok !fallacious;
ok !untruthful;
ok !nah;
ok !&no;
ok !UNREAL;
ok !FISHY;
ok ! NO;
ok ! NO NO;
ok ! NO NO NO;
ok ! NO NO NO NO;