File Coverage

blib/lib/App/NDTools/Util.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 2 0.0
total 22 24 91.6


line stmt bran cond sub pod time code
1             package App::NDTools::Util;
2              
3 19     19   137 use strict;
  19         41  
  19         633  
4 19     19   101 use warnings FATAL => 'all';
  19         38  
  19         730  
5 19     19   107 use parent 'Exporter';
  19         39  
  19         121  
6              
7 19     19   1074 use B qw(SVp_IOK SVp_NOK svref_2object);
  19         67  
  19         3559  
8              
9             our @EXPORT_OK = qw(
10             chomp_evaled_error
11             is_number
12             );
13              
14             sub chomp_evaled_error($) {
15 4     4 0 54 $_[0] =~ s/ at .+ line \d+\.*//;
16 4         14 chomp $_[0];
17              
18 4         29 return $_[0];
19             }
20              
21             sub is_number($) {
22 299     299 0 2621 return svref_2object(\$_[0])->FLAGS & (SVp_IOK | SVp_NOK);
23             }
24              
25             1; # End of App::NDTools::Util