File Coverage

blib/lib/Data/Cleaner/Int.pm
Criterion Covered Total %
statement 12 12 100.0
branch 3 4 75.0
condition n/a
subroutine 6 6 100.0
pod n/a
total 21 22 95.4


line stmt bran cond sub pod time code
1             package Data::Cleaner::Int;
2              
3 1     1   5 use strict;
  1         2  
  1         37  
4 1     1   5 use warnings;
  1         1  
  1         34  
5              
6 1     1   729 use Data::Types qw(is_int is_float);
  1         1288  
  1         178  
7              
8             our $VERSION = 0.0.1;
9             our $DEFAULT = 0;
10              
11             sub _validate {
12 2 100   2   5 defined (is_int($_[1])) ? return $_[1] : return undef;
13             }
14              
15             sub _fix {
16 1 50   1   3 defined(is_float($_[1])) ? return int($_[1]) : return $_[0]->get_default;
17             }
18              
19             sub _format {
20 1     1   2 return $_[1];
21             }
22              
23             1;
24              
25             __END__