File Coverage

blib/lib/Catmandu/Fix/sfx_threshold.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 24 25 96.0


line stmt bran cond sub pod time code
1             package Catmandu::Fix::sfx_threshold;
2              
3 1     1   25103 use Catmandu::Sane;
  1         68296  
  1         6  
4 1     1   738 use Catmandu::Util qw(:is);
  1         36954  
  1         371  
5 1     1   9 use Moo;
  1         1  
  1         7  
6 1     1   792 use Catmandu::SFX;
  1         1  
  1         27  
7 1     1   395 use Catmandu::Fix::Has;
  1         1083  
  1         4  
8              
9             has path => (fix_arg => 1);
10              
11             with 'Catmandu::Fix::SimpleGetValue';
12              
13             sub emit_value {
14 6     6 0 16451 my ($self, $var, $fixer) = @_;
15 6         33 my $sfx = $fixer->capture(Catmandu::SFX->new());
16 6         421 "if (is_string(${var})) {" .
17             "${var} = ${sfx}->parse_sfx_threshold(${var})" .
18             "}";
19             }
20              
21             1;
22              
23             __END__