| line |
true |
false |
branch |
|
61
|
0 |
0 |
if (defined $file) |
|
66
|
0 |
0 |
if (-f $real_file) |
|
84
|
0 |
0 |
if (defined $file) |
|
89
|
0 |
0 |
if (-f $real_file and -r $real_file) |
|
107
|
0 |
0 |
if (defined $file) |
|
112
|
0 |
0 |
if (-f $real_file and -w $real_file) |
|
129
|
0 |
0 |
if (-r $file and defined(my $fh = 'IO::File'->new($file))) |
|
134
|
0 |
0 |
if ($fh->read($content, $tell) == $tell) |
|
161
|
0 |
0 |
if (defined $file and not defined $content) |
|
165
|
0 |
0 |
if (blessed $file) { } |
|
|
0 |
0 |
elsif (defined $file) { } |
|
166
|
0 |
0 |
unless ($file->isa('File::Temp')) |
|
173
|
0 |
0 |
unless ($fh->open($file, '>')) |
|
179
|
0 |
0 |
unless (defined $content) |
|
182
|
0 |
0 |
unless (defined $file) |
|
186
|
0 |
0 |
if ($@) |
|
198
|
0 |
0 |
if ($fh->open($filename)) |
|
203
|
0 |
0 |
unless ($fh->read($read, $tell) == $tell) |
|
205
|
0 |
0 |
unless ($file->isa('File::Temp')) |
|
210
|
0 |
0 |
unless (&Digest::SHA::sha1_base64($content) eq &Digest::SHA::sha1_base64($read)) |
|
212
|
0 |
0 |
unless ($file->isa('File::Temp')) |
|
218
|
0 |
0 |
$file->isa('File::Temp') ? : |
|
235
|
0 |
0 |
unless ($@) |
|
253
|
0 |
0 |
if (defined $file and -f $file) |
|
265
|
0 |
0 |
unless ($@) |
|
266
|
0 |
0 |
if (chmod $mode, $tmp->filename and chown $uid, $gid, $tmp->filename) |
|
308
|
0 |
0 |
if ($part ne '') |
|
313
|
0 |
0 |
unless (exists $CALL_METHOD{$part}) |
|
320
|
0 |
0 |
unless (scalar @parts) |
|
343
|
0 |
0 |
unless ($key) |
|
348
|
0 |
0 |
$key =~ s/\[\]$//ou ? : |
|
350
|
0 |
0 |
unless ($key =~ /^[^\]]+(?:\[[^\]]+\])*$/ou) |
|
359
|
0 |
0 |
unless (scalar @keys) |
|
360
|
0 |
0 |
if ($array and exists $$this{$k}) |
|
361
|
0 |
0 |
unless (ref $$this{$k} eq 'ARRAY') |
|
367
|
0 |
0 |
$array ? : |
|
371
|
0 |
0 |
if (exists $$this{$k}) |
|
387
|
0 |
0 |
unless (/^\d+$/ou) |
|
393
|
0 |
0 |
if ($numeric) { } |
|
396
|
0 |
0 |
if (ref $$old{$_} eq 'HASH') |
|
405
|
0 |
0 |
if (ref $parent eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $parent eq 'ARRAY') { } |
|
417
|
0 |
0 |
if (ref $$old{$_} eq 'HASH') |
|
525
|
0 |
0 |
if (exists $args{'timeout'}) |
|
528
|
0 |
0 |
unless (exists $args{'cb'} and ref $args{'cb'} eq 'CODE') |
|
532
|
0 |
0 |
unless ($args{'timeout'} > 0) |
|
536
|
0 |
0 |
unless ($args{'interval'} > 0) |
|
540
|
0 |
0 |
unless ($args{'kill_try'} >= 0) |
|
548
|
0 |
0 |
unless ($pid) |
|
553
|
0 |
0 |
if ($args{'kill_try'}--) { } |
|
557
|
0 |
0 |
if ($args{'kill_kill'}) |
|
564
|
0 |
0 |
ref $cmd eq 'ARRAY' ? : |
|
|
0 |
0 |
if Lim::DEBUG() |
|
576
|
0 |
0 |
ref $cmd eq 'ARRAY' ? : |
|
|
0 |
0 |
if Lim::DEBUG() |