| line |
true |
false |
branch |
|
42
|
7 |
6 |
if defined wantarray and not @_ |
|
51
|
0 |
8 |
unless my $module = shift() |
|
61
|
0 |
0 |
unless my $module = shift() |
|
71
|
0 |
0 |
unless my $module = shift() |
|
81
|
0 |
0 |
unless my $module = shift() |
|
91
|
0 |
0 |
unless my $module = shift() |
|
102
|
0 |
0 |
unless my $resource = shift() |
|
103
|
0 |
0 |
unless my $value = shift() |
|
128
|
0 |
0 |
if defined wantarray and not @_ |
|
129
|
0 |
0 |
@_ ? : |
|
135
|
0 |
0 |
unless (@_) |
|
139
|
0 |
0 |
$_[0] ? : |
|
146
|
0 |
1 |
unless (defined $file) |
|
147
|
0 |
0 |
unless my $name = $self->name |
|
150
|
0 |
0 |
unless -e $file |
|
151
|
0 |
0 |
unless -e $file |
|
158
|
1 |
0 |
unless -e $pod |
|
161
|
0 |
1 |
unless $self->name |
|
162
|
1 |
0 |
unless $self->version |
|
163
|
1 |
0 |
unless $self->perl_version |
|
164
|
0 |
1 |
unless $self->author |
|
165
|
0 |
1 |
unless $self->license |
|
166
|
1 |
0 |
unless $self->abstract |
|
174
|
0 |
0 |
if @_ |
|
180
|
0 |
0 |
unless $self->is_admin |
|
181
|
0 |
0 |
unless (-e 'MANIFEST') |
|
196
|
0 |
0 |
unless $build->find_dist_packages |
|
205
|
0 |
0 |
if (@_ == 1 and ref $_[0]) { } |
|
214
|
0 |
0 |
ref $_ eq 'HASH' ? : |
|
|
0 |
0 |
ref $_ ? : |
|
231
|
0 |
0 |
$$self{'values'}{'features'} ? : |
|
238
|
0 |
0 |
if $type |
|
251
|
0 |
0 |
unless $self->can($key) |
|
252
|
0 |
0 |
if (ref $value eq 'HASH') { } |
|
265
|
0 |
0 |
unless $self->is_admin |
|
290
|
0 |
0 |
if (Module::Install::_read($file) =~ /
^ \s*
package \s*
([\w:]+)
\s* ;
/imsx) { } |
|
301
|
0 |
0 |
unless ($self->module_name) |
|
311
|
1 |
0 |
if (Module::Install::_read($_[0]) =~ /
^
(?:use|require) \s*
v?
([\d_\.]+)
\s* ;
/imsx) { } |
|
332
|
0 |
0 |
if ($content =~ /
=head \d \s+ (?:authors?)\b \s*
([^\n]*)
|
=head \d \s+ (?:licen[cs]e|licensing|copyright|legal)\b \s*
.*? copyright .*? \d\d\d[\d.]+ \s* (?:\bby\b)? \s*
([^\n]*)
/imsx) { } |
|
351
|
0 |
0 |
if (Module::Install::_read($_[0]) =~ /
(
=head \d \s+
(?:licen[cs]e|licensing|copyright|legal)\b
.*?
)
(=head\\d.*|=cut.*|)
\z
/imsx) |
|
377
|
0 |
0 |
if ($license_text =~ /\b$pattern\b/i) |
|
378
|
0 |
0 |
if ($osi and $license_text =~ /All rights reserved/i) |
|
396
|
1 |
0 |
if (-f $_) { } |
|
|
0 |
0 |
elsif (-d 'script' and -f "script/$_") { } |