| line |
true |
false |
branch |
|
29
|
0 |
4 |
if defined wantarray and not @_ |
|
38
|
2 |
1 |
unless @_ |
|
42
|
0 |
2 |
unless my $module = shift() |
|
44
|
1 |
1 |
if ($module eq 'perl') |
|
60
|
0 |
0 |
if defined wantarray and not @_ |
|
61
|
0 |
0 |
@_ ? : |
|
67
|
0 |
0 |
unless (@_) |
|
71
|
0 |
0 |
$_[0] ? : |
|
78
|
0 |
0 |
unless (defined $file) |
|
79
|
0 |
0 |
unless my $name = $self->name |
|
82
|
0 |
0 |
unless -e $file |
|
83
|
0 |
0 |
unless -e $file |
|
86
|
0 |
0 |
unless $self->version |
|
87
|
0 |
0 |
unless $self->perl_version |
|
92
|
0 |
0 |
if ($pod =~ s/\.pm$/.pod/i and -e $pod) |
|
96
|
0 |
0 |
unless $self->author |
|
97
|
0 |
0 |
unless $self->license |
|
98
|
0 |
0 |
unless $self->abstract |
|
104
|
0 |
0 |
if @_ |
|
110
|
0 |
0 |
unless $self->is_admin |
|
112
|
0 |
0 |
unless (-e 'MANIFEST') |
|
129
|
0 |
0 |
unless $build->find_dist_packages |
|
139
|
0 |
0 |
if (@_ == 1 and ref $_[0]) { } |
|
148
|
0 |
0 |
ref $_ eq 'HASH' ? : |
|
|
0 |
0 |
ref $_ ? : |
|
167
|
0 |
0 |
$$self{'values'}{'features'} ? : |
|
174
|
0 |
0 |
if $type |
|
187
|
0 |
0 |
unless $self->can($key) |
|
188
|
0 |
0 |
if (ref $value eq 'HASH') { } |
|
202
|
0 |
0 |
unless $self->is_admin |
|
228
|
0 |
0 |
unless open FH, "< $file" |
|
235
|
0 |
0 |
if ($self->_slurp($file) =~ /
^
use \s*
v?
([\d_\.]+)
\s* ;
/imsx) { } |
|
258
|
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) { } |
|
279
|
0 |
0 |
if ($self->_slurp($file) =~ /
=head \d \s+
(?:licen[cs]e|licensing|copyright|legal)\b
(.*?)
(=head\\d.*|=cut.*|)
\z
/imsx) |
|
303
|
0 |
0 |
if ($license_text =~ /\b$pattern\b/i) |