| line |
true |
false |
branch |
|
29
|
1 |
0 |
if defined $directory
|
|
36
|
0 |
14 |
if $cmd eq "copy" and @$lines == 0
|
|
39
|
0 |
14 |
if $cmd ne "copy" and @$lines > 0
|
|
42
|
14 |
0 |
if ($cmd eq 'copy') { }
|
|
58
|
0 |
2 |
if -e $file
|
|
60
|
0 |
2 |
unless my $out = "IO::File"->new($file, "w")
|
|
80
|
1 |
1 |
if (-e $file) { }
|
|
83
|
1 |
0 |
if ($page =~ /:[ \n]/) { }
|
|
107
|
0 |
14 |
if -e $file
|
|
109
|
0 |
14 |
unless my $out = "IO::File"->new($file, "w")
|
|
132
|
4 |
32 |
if ($path and not -d $path)
|
|
133
|
0 |
4 |
unless mkdir $path, 493
|
|
147
|
13 |
640 |
if (@pushback) { }
|
|
171
|
28 |
625 |
if ($line =~ s/^$prefix//)
|
|
186
|
1 |
14 |
unless defined $line
|
|
189
|
0 |
14 |
unless $command
|
|
193
|
13 |
624 |
if (is_command($line)) { }
|