File Coverage

blib/lib/Salvation/TC/Type/Number/Float.pm
Criterion Covered Total %
statement 12 12 100.0
branch 3 4 75.0
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 20 21 95.2


line stmt bran cond sub pod time code
1             package Salvation::TC::Type::Number::Float;
2              
3 4     4   1358 use strict;
  4         5  
  4         126  
4 4     4   14 use base 'Salvation::TC::Type::Number';
  4         4  
  4         737  
5              
6 4     4   16 use Salvation::TC::Exception::WrongType ();
  4         3  
  4         377  
7              
8             my $re = qr/^[-+]?\d*\.?(\d+)?$/;
9              
10             sub Check {
11              
12 8     8 1 13 my ( $class, $value ) = @_;
13              
14 8 50       20 defined( $value ) || Salvation::TC::Exception::WrongType -> throw( 'type' => 'Float', 'value' => 'UNDEFINED' );
15 8 100       80 $value =~ $re || Salvation::TC::Exception::WrongType -> throw( 'type' => 'Number::Float', 'value' => $value );
16             }
17              
18             1
19             __END__