| line |
true |
false |
branch |
|
29
|
1 |
5 |
if defined wantarray and not @_
|
|
38
|
2 |
1 |
unless @_
|
|
42
|
0 |
1 |
unless my $module = shift()
|
|
44
|
0 |
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)
|