File Coverage

blib/lib/Salvation/TC/Type/Bool.pm

Criterion	Covered	Total	%
statement	12	14	85.7
branch	0	2	0.0
condition	0	9	0.0
subroutine	4	5	80.0
pod	1	1	100.0
total	17	31	54.8

package Salvation::TC::Type::Bool;

use strict;
use warnings;

use base 'Salvation::TC::Type';

use Salvation::TC::Exception::WrongType ();


sub Check {

    my ( $class, $value ) = @_;

    ( ! defined( $value ) || ( $value eq '' ) || ( $value eq '1' ) || ( $value eq '0' ) )
        || Salvation::TC::Exception::WrongType -> throw( 'type' => 'Bool', 'value' => $value );
}


1;

__END__