File Coverage

blib/lib/Scalar/Boolean/Value.pm

Criterion	Covered	Total	%
statement	16	20	80.0
branch	3	8	37.5
condition			n/a
subroutine	8	10	80.0
pod	0	3	0.0
total	27	41	65.8

use strict;
use warnings;

package    #private
  Scalar::Boolean::Value;

my $true  = bless \do { ( my $data = 1 ) }, __PACKAGE__;
my $false = bless \do { ( my $data = 0 ) }, __PACKAGE__;

use overload
  '!'    => sub { ${ $_[0] } ? $false : $true },
  'bool' => sub { ${ $_[0] } },
  'eq'   => sub { ${ $_[0] } eq $_[1] ? $true : $false },
  '=='   => sub { ${ $_[0] } == $_[1] ? $true : $false };

sub boolean($) { $_[0] ? $true : $false }
sub true()     { $true }
sub false()    { $false }

1;

__END__