| line |
true |
false |
branch |
|
32
|
0 |
0 |
unless (-e $$self{'distribution'} and -f $$self{'distribution'}) |
|
41
|
0 |
0 |
unless ($$self{'app_name'} =~ /^[a-z][\w-]*$/i) |
|
63
|
0 |
0 |
if $_[0] |
|
78
|
0 |
0 |
if ($$self{'unpack_dir'}) |
|
94
|
0 |
0 |
if (-e $new_conf) { } |
|
|
0 |
0 |
elsif (-e 'File::Spec'->catfile($pm_dir, 'Makefile.PL') or -e 'File::Spec'->catfile($pm_dir, 'Build.PL')) { } |
|
128
|
0 |
0 |
if (-e $unpack_dir) |
|
132
|
0 |
0 |
unless mkdir $unpack_dir, 448 |
|
133
|
0 |
0 |
unless chdir $unpack_dir |
|
136
|
0 |
0 |
if ($file =~ /\.gz$/) { } |
|
137
|
0 |
0 |
if system 'tar', 'xzf', $file |
|
140
|
0 |
0 |
if system 'tar', 'xjf', $file |
|
155
|
0 |
0 |
if (-e $conf_file) { } |
|
200
|
0 |
0 |
if $$self{'dbuser'} |
|
201
|
0 |
0 |
if $$self{'dbpass'} |
|
202
|
0 |
0 |
if $$self{'dbname'} |
|
203
|
0 |
0 |
if $$self{'dbhost'} |
|
205
|
0 |
0 |
unless $$self{'pretend'} |
|
214
|
0 |
0 |
if ($$self{'verbose'} >= 0) |
|
219
|
0 |
0 |
unless $$self{'pretend'} |
|
226
|
0 |
0 |
unless $$self{'pretend'} |