File Coverage

blib/lib/Test/Unit/Assertion/Boolean.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	6	6	100.0
condition			n/a
subroutine	10	10	100.0
pod	2	3	66.6
total	44	45	97.7

package Test::Unit::Assertion::Boolean;
BEGIN {
  $Test::Unit::Assertion::Boolean::VERSION = '0.25_1325'; # added by dist-tools/SetVersion.pl
}

use strict;

# adding this fixes the 'Can't locate object method "fail" via package
# "Test::Unit::Assertion::Boolean"' problem under perl 5.005 - Christian
use Test::Unit::Assertion;
use Test::Unit::Failure;


use base 'Test::Unit::Assertion';

use overload 'bool' => sub {$ {$_[0]}};

sub new {
    my $class = shift;
    my $bool  = shift;

    my $self = \$bool;
    bless $self, $class;
}

sub do_assertion {
    my $self = shift;
    $$self or $self->fail( @_ ? join('', @_) : "Boolean assertion failed");
}

sub to_string {
    my $self = shift;
    ($$self ? 'TRUE' : 'FALSE') . ' boolean assertion';
}

1;

__END__