File Coverage

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

Criterion	Covered	Total	%
statement	17	17	100.0
branch	2	2	100.0
condition	3	3	100.0
subroutine	6	6	100.0
pod	1	1	100.0
total	29	29	100.0

package Salvation::TC::Type::ScalarRef;

use strict;
use warnings;

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

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


sub Check {

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

    ( ref( $value ) eq 'SCALAR' )
    || ( ref( $value ) eq 'REF' )
    || Salvation::TC::Exception::WrongType -> throw( 'type' => 'ScalarRef', 'value' => $value );
}

1;

__END__