| line |
true |
false |
branch |
|
91
|
0 |
0 |
if @_ % 2 |
|
98
|
0 |
0 |
if (defined $name and defined $regex) { } |
|
|
0 |
0 |
elsif (not defined $name || defined $regex) { } |
|
|
0 |
0 |
elsif (defined $name) { } |
|
108
|
0 |
0 |
unless ref $regex eq 'Regexp' |
|
111
|
0 |
0 |
unless my($modh, $modfile) = $self->modules_dbm |
|
117
|
0 |
0 |
if defined $arch_regex and not ref $arch_regex eq 'Regexp' |
|
123
|
0 |
0 |
unless $mod_name =~ /$regex/ |
|
125
|
0 |
0 |
if (defined $arch_regex) { } |
|
129
|
0 |
0 |
unless $arch =~ /$arch_regex/ |
|
236
|
0 |
0 |
if @_ % 2 |
|
243
|
0 |
0 |
if (defined $name and defined $regex) { } |
|
|
0 |
0 |
elsif (not defined $name || defined $regex) { } |
|
|
0 |
0 |
elsif (defined $name) { } |
|
253
|
0 |
0 |
unless ref $regex eq 'Regexp' |
|
256
|
0 |
0 |
unless my($scrh, $scrfile) = $self->scripts_dbm |
|
262
|
0 |
0 |
if defined $arch_regex and not ref $arch_regex eq 'Regexp' |
|
268
|
0 |
0 |
unless $scr_name =~ /$regex/ |
|
271
|
0 |
0 |
if (defined $arch_regex) |
|
274
|
0 |
0 |
unless $arch =~ /$arch_regex/ |
|
276
|
0 |
0 |
unless exists $scripts{$scr_name} |
|
335
|
0 |
0 |
if @_ % 2 |
|
342
|
0 |
0 |
if (defined $name and defined $regex) { } |
|
|
0 |
0 |
elsif (not defined $name || defined $regex) { } |
|
|
0 |
0 |
elsif (defined $name) { } |
|
352
|
0 |
0 |
unless ref $regex eq 'Regexp' |
|
355
|
0 |
0 |
unless my($modh, $modfile) = $self->modules_dbm |
|
361
|
0 |
0 |
if defined $arch_regex and not ref $arch_regex eq 'Regexp' |
|
371
|
0 |
0 |
unless $dist_name =~ /$regex/ |
|
374
|
0 |
0 |
if (defined $arch_regex) |
|
377
|
0 |
0 |
unless $arch =~ /$arch_regex/ |