| line |
true |
false |
branch |
|
23
|
2 |
1 |
$options{'Modules'} ? : |
|
24
|
2 |
1 |
$options{'Libs'} ? : |
|
25
|
2 |
1 |
$options{'Scripts'} ? : |
|
30
|
0 |
3 |
if $verbose and ref $verbose ne 'CODE' |
|
38
|
0 |
2 |
unless -d $_ |
|
43
|
0 |
0 |
if $useINC and not scalar @localdirs and not scalar @modules and not scalar @exes |
|
51
|
1 |
0 |
unless (scalar @modules or scalar @exes) |
|
56
|
0 |
1 |
unless -d "$projdir/bin" or -d "$projdir/lib" |
|
59
|
0 |
1 |
if $verbose |
|
60
|
1 |
0 |
if (opendir INDIR, "$projdir/bin") |
|
62
|
1 |
0 |
$havepath ? : |
|
|
1 |
2 |
unless -d "$projdir/bin/$file" |
|
70
|
0 |
1 |
if ($verbose) |
|
71
|
0 |
0 |
if ($havepath) { } |
|
86
|
0 |
1 |
unless $#{$modules{$_};} > -1 |
|
87
|
0 |
0 |
$havepath ? : |
|
|
0 |
0 |
$havepath ? : |
|
|
0 |
0 |
defined $modules{$_}[0] ? : |
|
|
0 |
1 |
if $verbose |
|
106
|
0 |
2 |
unless -e $_ or not $verbose |
|
108
|
0 |
2 |
if -d $_ |
|
112
|
2 |
0 |
$havepath ? : |
|
124
|
3 |
0 |
$havepath ? : |
|
128
|
0 |
3 |
if $verbose |
|
129
|
1 |
0 |
$havepath ? : |
|
|
1 |
2 |
if -e "$_/$srcfile" |
|
133
|
1 |
0 |
$havepath ? : |
|
|
1 |
2 |
if $usepod and -e "$_/$podfile" |
|
138
|
1 |
2 |
if -d "$_/$root" |
|
141
|
2 |
1 |
if exists $modules{$module} |
|
146
|
1 |
2 |
if ($useINC and not exists $modules{$module}) |
|
148
|
0 |
10 |
if $verbose |
|
149
|
1 |
0 |
$havepath ? : |
|
|
1 |
9 |
if -e "$_/$srcfile" |
|
153
|
0 |
0 |
$havepath ? : |
|
|
0 |
10 |
if $usepod and -e "$_/$podfile" |
|
158
|
0 |
10 |
if -d "$_/$root" |
|
160
|
1 |
0 |
$havepath ? : |
|
|
1 |
9 |
if exists $modules{$module} or -d "$_/$root" |
|
166
|
2 |
1 |
unless ($all and exists $modules{$module}) |
|
167
|
0 |
2 |
if $verbose |
|
171
|
0 |
1 |
unless $all |
|
175
|
0 |
1 |
if $verbose |
|
177
|
1 |
0 |
if ($#{$modules{$module};} == -1) |
|
184
|
1 |
0 |
if $#$c > -1 and length $m > 2 + length($module) and substr($m, 0, length $module) eq $module |
|
189
|
0 |
1 |
unless $childcnt or not $verbose |
|
193
|
0 |
2 |
if ($verbose) |
|
194
|
0 |
0 |
if ($havepath) { } |
|
209
|
1 |
3 |
unless $#{$modules{$_};} > -1 |
|
211
|
0 |
0 |
$havepath ? : |
|
|
0 |
0 |
$havepath ? : |
|
|
0 |
0 |
defined $modules{$_}[0] ? : |
|
|
0 |
3 |
if $verbose |
|
230
|
0 |
3 |
unless opendir INDIR, $dir |
|
232
|
1 |
10 |
if substr($child, 0, 1) ne '.' and -d "$dir/$child" |
|
236
|
7 |
4 |
if -d "$dir/$child" |
|
238
|
4 |
0 |
if (substr($child, -3) eq '.pm' or substr($child, -4) eq '.pod') |
|
240
|
4 |
0 |
$pkgroot ? : |
|
242
|
2 |
2 |
if ($1 eq 'pm') { } |
|
244
|
2 |
0 |
$outpath ? : |
|
248
|
2 |
0 |
$outpath ? : |
|
255
|
1 |
0 |
$outpath ? : |
|
|
0 |
1 |
$pkgroot ? : |