File Coverage

blib/lib/Sidef/Types/Bool/Bool.pm

Criterion	Covered	Total	%
statement	14	34	41.1
branch	0	16	0.0
condition	0	4	0.0
subroutine	5	18	27.7
pod	6	9	66.6
total	25	81	30.8

package Sidef::Types::Bool::Bool {

    use 5.014;

    use overload
      q{bool} => \&get_value,
      q{0+}   => \&get_value,
      q{""}   => sub { ${$_[0]} ? 'true' : 'false' };

    use constant {
                  TRUE  => (bless \(my $t = 1), __PACKAGE__),
                  FALSE => (bless \(my $f = 0), __PACKAGE__),
                 };

    use parent qw(Sidef::Object::Object);

    sub new {
        $_[1] ? (TRUE) : (FALSE);
    }

    *call = \&new;

    sub true  { (TRUE) }
    sub false { (FALSE) }

    sub pick {
        CORE::rand(1) < 0.5 ? (TRUE) : (FALSE);
    }

    *rand = \&pick;

    sub get_value { ${$_[0]} }
    sub to_bool   { $_[0] }
    *to_b = \&to_bool;

    {
        no strict 'refs';

        *{__PACKAGE__ . '::' . '|'} = sub {
            my ($self, $arg) = @_;
            $$self ? $self : $arg;
        };

        *{__PACKAGE__ . '::' . '&'} = sub {
            my ($self, $arg) = @_;
            $$self ? $arg : $self;
        };

        *{__PACKAGE__ . '::' . '^'} = sub {
            my ($self, $arg) = @_;
            ($$self xor $arg) ? (TRUE) : (FALSE);
        };
    }

    sub is_true { $_[0] }

    sub not {
        ${$_[0]} ? (FALSE) : (TRUE);
    }

    *is_false = \¬
    *flip     = \¬
    *toggle   = \¬
    *neg      = \¬

    sub dump {
        my ($self) = @_;
        Sidef::Types::String::String->new($$self ? 'true' : 'false');
    }

};

1