line |
true |
false |
branch |
96
|
0 |
1 |
if $@ |
107
|
0 |
14 |
if @{$$self{'diversion'};} > 0 |
109
|
2 |
12 |
if (defined $name) |
119
|
0 |
3 |
if @{$$self{'diversion'};} > 0 |
121
|
3 |
0 |
if (defined $mode) |
122
|
0 |
3 |
unless $mode =~ /^(none|once|always)$/ |
133
|
0 |
0 |
if @{$$self{'diversion'};} > 0 |
135
|
0 |
0 |
if (defined $mode) |
136
|
0 |
0 |
unless $mode =~ /^(none|fold|all)$/ |
147
|
0 |
0 |
if @{$$self{'diversion'};} > 0 |
149
|
0 |
0 |
if (defined $mode) |
150
|
0 |
0 |
unless $mode =~ /^(clone|pass)$/ |
164
|
0 |
0 |
if $prolog ne '' and not $$self{'storage'} =~ /^(none|fold)/ |
165
|
0 |
0 |
if $id eq '' |
167
|
0 |
0 |
if ($$self{'storage'} ne 'none') |
169
|
0 |
0 |
unless defined $object |
170
|
0 |
0 |
unless defined $object |
176
|
29 |
0 |
if $string ne '' and not $$self{'storage'} =~ /^(none|fold)/ |
184
|
0 |
11 |
if @{$$self{'diversion'};} > 0 |
185
|
0 |
11 |
unless defined $obj |
187
|
0 |
11 |
if (&_isobj($obj)) { } |
189
|
0 |
0 |
if ref $obj |
195
|
0 |
11 |
if ref $chunk |
205
|
4 |
21 |
if @{$$self{'diversion'};} > 0 |
206
|
0 |
21 |
unless defined $obj |
208
|
3 |
18 |
if ($$self{'overwrite'} eq 'once' or $$self{'overwrite'} eq 'always') { } |
211
|
1 |
2 |
if $$self{'overwrite'} eq 'once' |
215
|
0 |
18 |
if (&_isobj($obj)) { } |
217
|
0 |
0 |
if ref $obj |
221
|
6 |
12 |
if (ref $chunk or @{$$self{'chunks'};} > 0 and ref $$self{'chunks'}[-1]) { } |
|
6 |
6 |
elsif (@{$$self{'chunks'};} > 0) { } |
223
|
0 |
6 |
if ref $chunk |
241
|
2 |
25 |
if @{$$self{'diversion'};} > 0 |
249
|
0 |
45 |
if (grep {&_isobjeq($_, $self);} @{$visit;}) |
256
|
20 |
60 |
if (ref $chunk) { } |
263
|
20 |
0 |
if ($string =~ /([^\n]+)$/s and not $string =~ /\n$/s) |
268
|
20 |
0 |
if $prefix ne '' |
283
|
0 |
0 |
if @{$$self{'diversion'};} > 0 |
286
|
0 |
0 |
if (ref $chunk) { } |
292
|
0 |
0 |
if $string |
301
|
1 |
6 |
if @{$$self{'diversion'};} > 0 |
302
|
0 |
6 |
if $$self{'storage'} eq 'none' |
303
|
0 |
6 |
unless defined $id |
305
|
0 |
6 |
if (ref $id) { } |
306
|
0 |
0 |
unless &_isobj($id) |
314
|
5 |
1 |
unless defined $object |
315
|
0 |
6 |
unless defined $object |
327
|
0 |
0 |
if @{$$self{'diversion'};} > 0 |
329
|
0 |
0 |
$string ne '' ? : |
358
|
16 |
4 |
if (defined $id) { } |
361
|
11 |
16 |
if (ref $chunk) |
362
|
8 |
3 |
if (ref $id and &_isobjeq($chunk, $id) or not ref $id and $chunk->name eq $id) |
368
|
3 |
0 |
if defined $folding |
376
|
3 |
7 |
if (ref $chunk) |
390
|
1 |
0 |
if (defined $a and defined $b) { } |
394
|
0 |
1 |
if not defined $id or defined $id and $id ne 'foo' |
402
|
0 |
0 |
if $$self{'storage'} eq 'none' |
403
|
0 |
0 |
unless defined $a |
414
|
0 |
5 |
if (not defined $id) { } |
418
|
0 |
0 |
if defined $object |
420
|
0 |
0 |
unless defined $object |
426
|
0 |
5 |
unless defined $object |
436
|
2 |
2 |
unless defined $num |
437
|
0 |
4 |
unless ($num =~ /^\d+$/) |
441
|
0 |
0 |
if $$self{'diversion'}[-$num]{'name'} eq $name |
444
|
0 |
0 |
if $num > @{$$self{'diversion'};} |
446
|
2 |
2 |
if $num == 0 |
449
|
0 |
4 |
if $num > @{$$self{'diversion'};} |
459
|
0 |
2 |
if (not wantarray) { } |
487
|
166 |
11 |
ref $_[0] eq 'String::Divert' ? : |
488
|
120 |
57 |
if (defined $_[1]) |
489
|
5 |
115 |
if ($_[1]) { } |
581
|
0 |
0 |
if ($$self{'copying'} eq 'pass') { } |
608
|
0 |
0 |
$reverse ? : |