File Coverage

blib/lib/BERT/Boolean.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	2	4	50.0
total	27	29	93.1

package BERT::Boolean;
use strict;
use warnings;

use overload bool     => \&value,
             fallback => 1;

sub new {
    my ($class, $value) = @_;
    $value = $value ? 1 : 0;
    return bless \$value, $class;
}

sub value {
    return ${ $_[0] };
}

sub true {
    return $_[0]->new(1);
}

sub false {
    return $_[0]->new(0);
}

1;

__END__