File Coverage

blib/lib/Data/Cleaner/Oct.pm
Criterion Covered Total %
statement 12 12 100.0
branch 2 2 100.0
condition n/a
subroutine 6 6 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Data::Cleaner::Oct;
2              
3 1     1   5 use strict;
  1         2  
  1         38  
4 1     1   6 use warnings;
  1         2  
  1         39  
5              
6 1     1   5 use Data::Validate qw(is_oct);
  1         2  
  1         173  
7              
8             our $VERSION = 0.0.1;
9             our $DEFAULT = 0;
10              
11             sub _validate {
12 2 100   2   36 defined(is_oct($_[1])) ? return $_[1] : return undef;
13             }
14              
15             sub _fix {
16 1     1   6 return $_[0]->get_default;
17             }
18              
19             sub _format {
20 1     1   5 return $_[1];
21             }
22              
23             1;
24              
25             __END__