| line |
true |
false |
branch |
|
94
|
0 |
2 |
unless (defined fileno $__DATA__) |
|
105
|
0 |
2 |
if (my $error = $@) |
|
108
|
0 |
2 |
unless ('ARRAY' eq (ref $data_section || '')) |
|
215
|
0 |
6 |
if (exists $SYNCH_WAS_CALLED{$key}) |
|
237
|
0 |
7 |
if (exists $SYNCH_WAS_CALLED{$key}) |
|
241
|
2 |
5 |
unless (exists $DATA_SECTION_FOR{$key}) |
|
247
|
1 |
6 |
unless (@$data_section) |
|
275
|
1 |
1 |
unless ($have == $want) |
|
282
|
1 |
0 |
if $builder->is_passing |
|
294
|
0 |
0 |
if (my $error = $@) |
|
295
|
0 |
0 |
if $error =~ /Died while bored/ |
|
298
|
0 |
0 |
unless ($response =~ /^\s*[yY]/) |
|
303
|
0 |
0 |
if (exists $SYNCH_WAS_CALLED{$key}) |
|
311
|
0 |
0 |
unless (exists $SEEK_POSITION_FOR{$key}) |
|
315
|
0 |
0 |
unless ('ARRAY' eq ref $new_data) |
|
321
|
0 |
0 |
unless open my $fh, '+<', $0 |
|
322
|
0 |
0 |
unless seek $fh, $position, 0 |
|
324
|
0 |
0 |
unless truncate $fh, tell $fh |
|
326
|
0 |
0 |
unless print $fh Dumper($new_data) |
|
327
|
0 |
0 |
unless close $fh |