| line |
true |
false |
branch |
|
173
|
0 |
556 |
if $File::Data::DEBUG |
|
176
|
536 |
20 |
$i_ok == 1 ? : |
|
193
|
0 |
2 |
if $File::Data::DEBUG |
|
197
|
0 |
2 |
if $File::Data::DEBUG |
|
219
|
0 |
2 |
$File::Data::REFERENCE ? : |
|
238
|
0 |
5 |
if $File::Data::DEBUG |
|
240
|
4 |
1 |
if ($self->_writable) |
|
247
|
0 |
5 |
if $File::Data::DEBUG |
|
250
|
0 |
5 |
$File::Data::REFERENCE ? : |
|
259
|
0 |
12 |
if $File::Data::DEBUG |
|
261
|
44 |
0 |
if print $FH $_ |
|
262
|
0 |
44 |
if $File::Data::DEBUG |
|
265
|
0 |
12 |
$File::Data::REFERENCE ? : |
|
283
|
0 |
3 |
if $File::Data::DEBUG |
|
285
|
2 |
1 |
if ($self->_writable) |
|
291
|
2 |
0 |
if $self->_write(@_, @data) |
|
294
|
0 |
3 |
if $File::Data::DEBUG |
|
297
|
0 |
3 |
$File::Data::REFERENCE ? : |
|
316
|
0 |
3 |
if $File::Data::DEBUG |
|
318
|
1 |
2 |
if (not $line =~ /^\d+$/) { } |
|
321
|
2 |
0 |
if ($self->_writable) |
|
330
|
4 |
6 |
if ($i_cnt < $line) { } |
|
|
6 |
0 |
elsif ($i_cnt >= $line) { } |
|
337
|
0 |
2 |
if (not $i_cnt >= $line) { } |
|
338
|
0 |
0 |
$i_cnt == 1 ? : |
|
343
|
2 |
0 |
if $self->_write(@pre, @_, @post) |
|
348
|
0 |
3 |
if $File::Data::DEBUG |
|
351
|
0 |
3 |
$File::Data::REFERENCE ? : |
|
369
|
0 |
3 |
if $File::Data::DEBUG |
|
371
|
2 |
1 |
if ($self->_writable) |
|
374
|
2 |
0 |
if $self->_write(@_) |
|
377
|
0 |
3 |
if $File::Data::DEBUG |
|
380
|
0 |
3 |
$File::Data::REFERENCE ? : |
|
403
|
0 |
2 |
if $File::Data::DEBUG |
|
405
|
0 |
2 |
if (not $search =~ /.+/) { } |
|
412
|
1 |
1 |
if ($File::Data::STRING) { } |
|
415
|
0 |
1 |
if $File::Data::DEBUG |
|
420
|
0 |
7 |
if $File::Data::DEBUG |
|
426
|
2 |
0 |
if (scalar @ret >= 1) |
|
431
|
0 |
2 |
if $File::Data::DEBUG |
|
434
|
0 |
2 |
$File::Data::REFERENCE ? : |
|
463
|
0 |
3 |
if $File::Data::DEBUG |
|
465
|
2 |
1 |
if ($self->_writable) |
|
473
|
1 |
1 |
if ($File::Data::STRING) { } |
|
476
|
0 |
1 |
if $File::Data::DEBUG |
|
477
|
1 |
0 |
if ($i_cnt = $data =~ s/$search/$replace/g) { } |
|
484
|
0 |
7 |
if $File::Data::DEBUG |
|
486
|
3 |
4 |
if ($line =~ s/$search/$replace/) |
|
492
|
2 |
0 |
if (scalar @ret >= 1) |
|
498
|
0 |
2 |
unless ($i_cnt >= 1) |
|
504
|
0 |
3 |
if $File::Data::DEBUG |
|
507
|
0 |
3 |
$File::Data::REFERENCE ? : |
|
526
|
5 |
0 |
if (defined $$self{'_var'}{$call} and ref $$self{'_var'}{$call} eq 'ARRAY') { } |
|
617
|
0 |
0 |
if $File::Data::DEBUG |
|
624
|
0 |
0 |
if $File::Data::DEBUG |
|
627
|
0 |
0 |
$File::Data::REFERENCE ? : |
|
760
|
0 |
6 |
if $File::Data::AUTOLOAD =~ /::DESTROY$/o |
|
765
|
6 |
0 |
if ($meth =~ /^($_METHODS)$/io) { } |
|
771
|
0 |
0 |
if ($FH->can($meth)) { } |
|
887
|
0 |
9036 |
if (not $key =~ /^($_VARS)$/io) { } |
|
890
|
3411 |
5625 |
if (defined $val) |
|
911
|
0 |
4518 |
if ($debug =~ /^(\d+)$/o and $1 >= 1 or $debug =~ /^(.+)$/o and $state =~ /$debug/) |
|
930
|
0 |
0 |
unless $key =~ /^[A-Z]+$/o |
|
931
|
0 |
0 |
if $key =~ /^(BEGIN|EXPORT)/o |
|
969
|
0 |
21 |
if (ref $c_ref eq 'CODE') { } |
|
|
0 |
21 |
elsif (ref $c_ref and $c_ref->can($state)) { } |
|
971
|
0 |
0 |
if ($@) |
|
972
|
0 |
0 |
$File::Data::FATAL >= 1 ? : |
|
979
|
0 |
0 |
if ($@) |
|
980
|
0 |
0 |
$File::Data::FATAL >= 1 ? : |
|
986
|
0 |
21 |
unless ($File::Data::SILENT) |
|
987
|
0 |
0 |
$File::Data::FATAL >= 1 ? : |
|
1003
|
4 |
552 |
if (not $file =~ /\w+/o) { } |
|
1008
|
0 |
552 |
if ($xfile =~ /.+/o) |
|
1036
|
0 |
552 |
unless $ret =~ /.+/o |
|
1050
|
0 |
552 |
if (ref $h_errs ne 'HASH') { } |
|
1070
|
6 |
21 |
unless $last eq 'limbo' |
|
1087
|
577 |
6 |
unless $last eq 'limbo' |
|
1103
|
538 |
1104 |
defined $arg ? : |
|
1107
|
0 |
1642 |
unless $FH |
|
1131
|
0 |
556 |
if $File::Data::DEBUG |
|
1134
|
552 |
4 |
if $file |
|
1135
|
552 |
4 |
if $file |
|
1137
|
552 |
4 |
if ($file) |
|
1139
|
551 |
1 |
if ($i_ok == 1) |
|
1143
|
0 |
551 |
if $i_ok and $self->_var('backup') |
|
1148
|
0 |
556 |
if $File::Data::DEBUG |
|
1164
|
0 |
552 |
if (not $file =~ /.+/o && $perm =~ /.+/o) { } |
|
1168
|
0 |
552 |
if (not -e _) { } |
|
1171
|
1 |
551 |
if (not -f _) { } |
|
1174
|
0 |
551 |
if (not -r _) { } |
|
1177
|
6 |
545 |
if ($perm =~ /^<$/o) { } |
|
1180
|
0 |
545 |
if (not -w $file) { } |
|
1211
|
13 |
538 |
if (not $FH) { } |
|
1216
|
538 |
0 |
if ($FH) |
|
1235
|
538 |
0 |
if ($FH) |
|
1237
|
532 |
6 |
if ($self->_writable) { } |
|
1239
|
530 |
2 |
if (flock $FH, 6) { } |
|
1246
|
6 |
0 |
if (flock $FH, 5) { } |
|
1266
|
0 |
0 |
if ($FH) { } |
|
1283
|
538 |
18 |
if $self->_var('filehandle') |
|
1286
|
538 |
18 |
if ($FH) |
|
1288
|
538 |
0 |
if ($FH->close) { } |
|
1305
|
10 |
544 |
if ($i_ok != 1) |
|
1345
|
0 |
6 |
if $File::Data::DEBUG |
|
1347
|
0 |
6 |
if (not $call =~ /^($_METHODS)$/io) { } |
|
1353
|
0 |
6 |
ref $res[0] ? : |
|
1356
|
0 |
6 |
if $File::Data::DEBUG |