| line |
true |
false |
branch |
|
185
|
0 |
556 |
if $File::Data::DEBUG |
|
188
|
536 |
20 |
$i_ok == 1 ? : |
|
205
|
0 |
2 |
if $File::Data::DEBUG |
|
209
|
0 |
2 |
if $File::Data::DEBUG |
|
231
|
0 |
2 |
$File::Data::REFERENCE ? : |
|
250
|
0 |
5 |
if $File::Data::DEBUG |
|
252
|
4 |
1 |
if ($self->_writable) |
|
259
|
0 |
5 |
if $File::Data::DEBUG |
|
262
|
0 |
5 |
$File::Data::REFERENCE ? : |
|
271
|
0 |
12 |
if $File::Data::DEBUG |
|
273
|
44 |
0 |
if print $FH $_ |
|
274
|
0 |
44 |
if $File::Data::DEBUG |
|
277
|
0 |
12 |
$File::Data::REFERENCE ? : |
|
295
|
0 |
3 |
if $File::Data::DEBUG |
|
297
|
2 |
1 |
if ($self->_writable) |
|
303
|
2 |
0 |
if $self->_write(@_, @data) |
|
306
|
0 |
3 |
if $File::Data::DEBUG |
|
309
|
0 |
3 |
$File::Data::REFERENCE ? : |
|
328
|
0 |
3 |
if $File::Data::DEBUG |
|
330
|
1 |
2 |
if (not $line =~ /^\d+$/) { } |
|
333
|
2 |
0 |
if ($self->_writable) |
|
342
|
4 |
6 |
if ($i_cnt < $line) { } |
|
|
6 |
0 |
elsif ($i_cnt >= $line) { } |
|
349
|
0 |
2 |
if (not $i_cnt >= $line) { } |
|
350
|
0 |
0 |
$i_cnt == 1 ? : |
|
355
|
2 |
0 |
if $self->_write(@pre, @_, @post) |
|
360
|
0 |
3 |
if $File::Data::DEBUG |
|
363
|
0 |
3 |
$File::Data::REFERENCE ? : |
|
381
|
0 |
3 |
if $File::Data::DEBUG |
|
383
|
2 |
1 |
if ($self->_writable) |
|
386
|
2 |
0 |
if $self->_write(@_) |
|
389
|
0 |
3 |
if $File::Data::DEBUG |
|
392
|
0 |
3 |
$File::Data::REFERENCE ? : |
|
415
|
0 |
2 |
if $File::Data::DEBUG |
|
417
|
0 |
2 |
if (not $search =~ /.+/) { } |
|
424
|
1 |
1 |
if ($File::Data::STRING) { } |
|
427
|
0 |
1 |
if $File::Data::DEBUG |
|
432
|
0 |
7 |
if $File::Data::DEBUG |
|
435
|
3 |
4 |
if $line =~ /$search/ |
|
439
|
2 |
0 |
if (scalar @ret >= 1) |
|
444
|
0 |
2 |
if $File::Data::DEBUG |
|
447
|
0 |
2 |
$File::Data::REFERENCE ? : |
|
476
|
0 |
3 |
if $File::Data::DEBUG |
|
478
|
2 |
1 |
if ($self->_writable) |
|
486
|
1 |
1 |
if ($File::Data::STRING) { } |
|
489
|
0 |
1 |
if $File::Data::DEBUG |
|
490
|
1 |
0 |
if ($i_cnt = $data =~ s/$search/$replace/g) { } |
|
497
|
0 |
7 |
if $File::Data::DEBUG |
|
499
|
3 |
4 |
if ($line =~ s/$search/$replace/) |
|
505
|
2 |
0 |
if (scalar @ret >= 1) |
|
511
|
0 |
2 |
unless ($i_cnt >= 1) |
|
517
|
0 |
3 |
if $File::Data::DEBUG |
|
520
|
0 |
3 |
$File::Data::REFERENCE ? : |
|
539
|
5 |
0 |
if (defined $self->{'_var'}{$call} and ref $self->{'_var'}{$call} eq 'ARRAY') { } |
|
630
|
0 |
0 |
if $File::Data::DEBUG |
|
637
|
0 |
0 |
if $File::Data::DEBUG |
|
640
|
0 |
0 |
$File::Data::REFERENCE ? : |
|
773
|
0 |
6 |
if $File::Data::AUTOLOAD =~ /::DESTROY$/o |
|
778
|
6 |
0 |
if ($meth =~ /^($_METHODS)$/io) { } |
|
784
|
0 |
0 |
if ($FH->can($meth)) { } |
|
900
|
0 |
9036 |
if (not $key =~ /^($_VARS)$/io) { } |
|
903
|
3411 |
5625 |
if (defined $val) |
|
924
|
0 |
4518 |
if ($debug =~ /^(\d+)$/o and $1 >= 1 or $debug =~ /^(.+)$/o and $state =~ /$debug/) |
|
943
|
0 |
0 |
unless $key =~ /^[A-Z]+$/o |
|
944
|
0 |
0 |
if $key =~ /^(BEGIN|EXPORT)/o |
|
982
|
0 |
21 |
if (ref $c_ref eq 'CODE') { } |
|
|
0 |
21 |
elsif (ref $c_ref and $c_ref->can($state)) { } |
|
984
|
0 |
0 |
if ($@) |
|
985
|
0 |
0 |
$File::Data::FATAL >= 1 ? : |
|
992
|
0 |
0 |
if ($@) |
|
993
|
0 |
0 |
$File::Data::FATAL >= 1 ? : |
|
999
|
0 |
21 |
unless ($File::Data::SILENT) |
|
1000
|
0 |
0 |
$File::Data::FATAL >= 1 ? : |
|
1016
|
4 |
552 |
if (not $file =~ /\w+/o) { } |
|
1021
|
0 |
552 |
if ($xfile =~ /.+/o) |
|
1049
|
0 |
552 |
unless $ret =~ /.+/o |
|
1063
|
0 |
552 |
if (ref $h_errs ne 'HASH') { } |
|
1083
|
6 |
21 |
unless $last eq 'limbo' |
|
1100
|
577 |
6 |
unless $last eq 'limbo' |
|
1116
|
538 |
1104 |
defined $arg ? : |
|
1120
|
0 |
1642 |
unless $FH |
|
1144
|
0 |
556 |
if $File::Data::DEBUG |
|
1147
|
552 |
4 |
if $file |
|
1148
|
552 |
4 |
if $file |
|
1150
|
552 |
4 |
if ($file) |
|
1152
|
551 |
1 |
if ($i_ok == 1) |
|
1156
|
0 |
551 |
if $i_ok and $self->_var('backup') |
|
1161
|
0 |
556 |
if $File::Data::DEBUG |
|
1177
|
0 |
552 |
if (not $file =~ /.+/o && $perm =~ /.+/o) { } |
|
1181
|
0 |
552 |
if (not -e _) { } |
|
1184
|
1 |
551 |
if (not -f _) { } |
|
1187
|
0 |
551 |
if (not -r _) { } |
|
1190
|
6 |
545 |
if ($perm =~ /^<$/o) { } |
|
1193
|
0 |
545 |
if (not -w $file) { } |
|
1224
|
13 |
538 |
if (not $FH) { } |
|
1229
|
538 |
0 |
if ($FH) |
|
1248
|
538 |
0 |
if ($FH) |
|
1250
|
532 |
6 |
if ($self->_writable) { } |
|
1252
|
530 |
2 |
if (flock $FH, 6) { } |
|
1259
|
6 |
0 |
if (flock $FH, 5) { } |
|
1279
|
0 |
0 |
if ($FH) { } |
|
1296
|
538 |
18 |
if $self->_var('filehandle') |
|
1299
|
538 |
18 |
if ($FH) |
|
1301
|
538 |
0 |
if ($FH->close) { } |
|
1318
|
10 |
544 |
if ($i_ok != 1) |
|
1358
|
0 |
6 |
if $File::Data::DEBUG |
|
1360
|
0 |
6 |
if (not $call =~ /^($_METHODS)$/io) { } |
|
1366
|
0 |
6 |
ref $res[0] ? : |
|
1369
|
0 |
6 |
if $File::Data::DEBUG |