| line |
true |
false |
branch |
|
72
|
8 |
240 |
if $name eq 'BEGIN' |
|
73
|
8 |
232 |
if $name eq 'import' |
|
74
|
16 |
216 |
unless *{$symbol;}{'CODE'} |
|
133
|
0 |
0 |
unless open my $handle, '|-', "$sendmail -f $from" |
|
185
|
6 |
0 |
if (open my $handle, '<', $file) |
|
192
|
5 |
24 |
if ($line eq $read) |
|
204
|
1 |
5 |
unless ($found) |
|
206
|
1 |
0 |
if (open my $handle, '>>', $file) { } |
|
269
|
1 |
0 |
if (open my $handle, '<', $file) { } |
|
278
|
1 |
3 |
if ($read =~ /$pattern/) |
|
290
|
1 |
0 |
if ($found) { } |
|
292
|
1 |
0 |
if (open my $handle, '>', $file) |
|
357
|
0 |
2 |
if $main::verbose |
|
364
|
3 |
6 |
if (basename($file) =~ /$pattern/) |
|
369
|
0 |
3 |
if $main::verbose |
|
428
|
0 |
0 |
if $main::verbose |
|
437
|
0 |
0 |
if -d $file |
|
441
|
0 |
0 |
if ($fage >= $age) |
|
443
|
0 |
0 |
if $main::verbose |
|
451
|
0 |
0 |
if $main::verbose |
|
517
|
0 |
3 |
unless ($a and $b) |
|
519
|
0 |
0 |
if $main::verbose |
|
526
|
0 |
3 |
unless -e $a |
|
527
|
1 |
2 |
unless -e $b |
|
535
|
1 |
1 |
if $size_a != $size_b |
|
542
|
0 |
1 |
if $sum_a ne $sum_b |
|
663
|
0 |
0 |
unless ($dst) |
|
665
|
0 |
0 |
if $main::verbose |
|
669
|
0 |
0 |
if $main::verbose |
|
676
|
0 |
0 |
unless (defined $content) |
|
678
|
0 |
0 |
if $main::verbose |
|
686
|
0 |
0 |
if (defined $params{'Expand'} and $params{'Expand'} =~ /true/i) { } |
|
688
|
0 |
0 |
if $main::verbose |
|
697
|
0 |
0 |
unless ($content) |
|
706
|
0 |
0 |
if $main::verbose |
|
715
|
0 |
0 |
unless open my $fh, '>', $name |
|
729
|
0 |
0 |
if (not -e $dst) { } |
|
731
|
0 |
0 |
if $main::verbose |
|
739
|
0 |
0 |
if ($new ne $cur) { } |
|
743
|
0 |
0 |
if $main::verbose |
|
747
|
0 |
0 |
if $main::verbose |
|
755
|
0 |
0 |
if ($replace) |
|
757
|
0 |
0 |
if (-e $dst) |
|
766
|
0 |
0 |
if ($backup =~ /true/i) { } |
|
768
|
0 |
0 |
if $main::verbose |
|
773
|
0 |
0 |
if $main::verbose |
|
783
|
0 |
0 |
unless (-d $dir) |
|
789
|
0 |
0 |
if $main::verbose |
|
805
|
0 |
0 |
if (-e $name) |
|
865
|
0 |
13 |
unless (defined $line or defined $pattern) |
|
873
|
16 |
0 |
if (open my $handle, '<', $file) { } |
|
879
|
2 |
71 |
if (defined $line and $line eq $read) |
|
883
|
7 |
66 |
if (defined $pattern and $read =~ /$pattern/) |
|
949
|
3 |
3 |
if (-d $dir and -x $dir . '/' . $binary and not $result) |
|
1049
|
0 |
0 |
if ($path) { } |
|
1053
|
0 |
0 |
unless open my $handle, '-|', $path |
|
1060
|
0 |
0 |
if ($line =~ /^([^ \t]+)[ \t]+on[ \t]+([^ \t]+)/) |
|
1063
|
0 |
0 |
if $dev =~ /dev/ |
|
1141
|
0 |
0 |
unless ($path) |
|
1161
|
0 |
0 |
unless $line =~ /%/ |
|
1163
|
0 |
0 |
if ($line =~ /[ \t]([0-9]*)%[ \t]/) |
|
1235
|
3 |
0 |
if (open my $handle, '<', $file) { } |
|
1245
|
5 |
10 |
if ($replace =~ /\$/) { } |
|
1254
|
3 |
12 |
if $read ne $orig |
|
1261
|
3 |
0 |
if ($found) { } |
|
1263
|
3 |
0 |
if (open my $handle, '>', $file) |
|
1322
|
0 |
3 |
unless ($cmd =~ />/) |
|
1327
|
0 |
3 |
if $main::verbose |
|
1390
|
0 |
9 |
unless -e $file |
|
1397
|
3 |
6 |
if (defined $owner) |
|
1400
|
3 |
0 |
unless defined $uid |
|
1402
|
0 |
0 |
if $main::verbose |
|
1406
|
3 |
3 |
if (defined $group) |
|
1409
|
3 |
0 |
unless defined $gid |
|
1410
|
0 |
0 |
if $main::verbose |
|
1415
|
0 |
3 |
if ($params{'Owner'}) |
|
1427
|
0 |
0 |
if $main::verbose |
|
1432
|
0 |
3 |
if ($params{'Group'}) |
|
1444
|
0 |
0 |
if $main::verbose |
|
1449
|
3 |
0 |
if ($params{'Mode'}) |
|
1451
|
0 |
3 |
if $main::verbose |
|
1453
|
0 |
3 |
unless ($mode =~ /^0/) |
|
1456
|
0 |
0 |
if $main::verbose |
|
1541
|
0 |
1 |
unless defined $name |
|
1592
|
0 |
1 |
if (not defined $login) { } |