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   134 use strict;
  19         44  
  19         636  
4 19     19   99 use warnings FATAL => 'all';
  19         37  
  19         757  
5 19     19   100 use parent 'Exporter';
  19         39  
  19         109  
6              
7 19     19   1110 use B qw(SVp_IOK SVp_NOK svref_2object);
  19         41  
  19         3510  
8              
9             our @EXPORT_OK = qw(
10             chomp_evaled_error
11             is_number
12             );
13              
14             sub chomp_evaled_error($) {
15 4     4 0 53 $_[0] =~ s/ at .+ line \d+\.*//;
16 4         17 chomp $_[0];
17              
18 4         26 return $_[0];
19             }
20              
21             sub is_number($) {
22 299     299 0 2366 return svref_2object(\$_[0])->FLAGS & (SVp_IOK | SVp_NOK);
23             }
24              
25             1; # End of App::NDTools::Util