| line |
true |
false |
branch |
|
96
|
4 |
2 |
if (UNIVERSAL::isa($_[0], 'HASH')) |
|
117
|
8 |
4 |
unless $$self{'__option'}{$t} |
|
119
|
0 |
12 |
unless -d $d and -r _ |
|
127
|
2 |
4 |
if $$self{'__option'}{'sufix'} |
|
128
|
0 |
6 |
unless (-f $source and -r _) |
|
142
|
0 |
6 |
unless open my $sfh, "<$source" |
|
146
|
2 |
4 |
$source eq $dest ? : |
|
149
|
0 |
6 |
unless seek $tmpfh, 0, 0 |
|
151
|
0 |
6 |
unless open my $dfh, ">$dest" |
|
158
|
0 |
6 |
unless chmod $mode, $dest |
|
170
|
12 |
6 |
if ($str =~ /^###\s*(before|replace|after)\:\s?(.*)$/s) { } |
|
174
|
0 |
12 |
if $replace and $action eq 'replace' |
|
176
|
6 |
6 |
if ($action eq 'before') { } |
|
|
0 |
6 |
elsif ($action eq 'replace') { } |
|
|
6 |
0 |
elsif ($action eq 'after') { } |
|
177
|
0 |
6 |
unless @queue |