| line |
true |
false |
branch |
|
15
|
1 |
31 |
unless defined $$argsref{'body_rule'} |
|
17
|
1 |
30 |
unless ref $$argsref{'body_rule'} eq 'CODE' |
|
19
|
1 |
29 |
unless defined $$argsref{'file'} or defined $$argsref{'list'} |
|
21
|
1 |
28 |
if defined $$argsref{'file'} and not -f $$argsref{'file'} |
|
23
|
2 |
21 |
if defined $$argsref{'list'} and !ref($$argsref{'list'}) || ref $$argsref{'list'} ne 'ARRAY' |
|
30
|
2 |
4 |
if defined $$argsref{'body_suppress'} and !ref($$argsref{'body_suppress'}) || ref $$argsref{'body_suppress'} ne 'CODE' |
|
37
|
2 |
10 |
if defined $$argsref{'header_rule'} and !ref($$argsref{'header_rule'}) || ref $$argsref{'header_rule'} ne 'CODE' |
|
44
|
1 |
21 |
if defined $$argsref{'header_suppress'} and not defined $$argsref{'header_rule'} |
|
48
|
2 |
5 |
if defined $$argsref{'header_suppress'} and !ref($$argsref{'header_suppress'}) || ref $$argsref{'header_suppress'} ne 'CODE' |
|
56
|
5 |
14 |
if ($$argsref{'file'}) { } |
|
58
|
0 |
5 |
unless tie @elements, 'Tie::File', $$argsref{'file'}, 'recsep', $/ |
|
68
|
8 |
11 |
if (defined $$self{'header_rule'}) { } |
|
89
|
11 |
8 |
if (not defined $$self{'output_file'} || defined $$self{'output_suffix'}) { } |
|
98
|
7 |
1 |
if (defined $$self{'output_file'}) { } |
|
104
|
0 |
8 |
unless open my $OUT, ">$outfile" |
|
108
|
0 |
8 |
unless close $OUT |
|
117
|
11 |
8 |
if (not defined $$self{'header_rule'}) { } |
|
120
|
6 |
2 |
if ($$self{'header_status'} != -1) { } |
|
130
|
11 |
8 |
if (not defined $$self{'header_rule'}) { } |
|
141
|
40 |
138 |
if (defined $$self{'body_suppress'}) |
|
142
|
6 |
34 |
unless (defined &{$$self{'body_suppress'};}($el)) |
|
149
|
154 |
18 |
if $el ne $newel |
|
158
|
5 |
3 |
if (defined $$self{'header_suppress'}) { } |
|
159
|
3 |
2 |
if (defined &{$$self{'header_suppress'};}($header)) { } |
|
162
|
2 |
1 |
if $header ne $newheader |
|
170
|
2 |
1 |
if $header ne $newheader |