| line |
true |
false |
branch |
|
29
|
6 |
7 |
if defined wantarray and not @_
|
|
38
|
2 |
3 |
unless @_
|
|
42
|
0 |
3 |
unless my $module = shift()
|
|
44
|
0 |
3 |
if ($module eq 'perl')
|
|
65
|
0 |
0 |
if defined wantarray and not @_
|
|
66
|
0 |
0 |
@_ ? :
|
|
72
|
0 |
0 |
unless (@_)
|
|
76
|
0 |
0 |
$_[0] ? :
|
|
83
|
0 |
1 |
unless (defined $file)
|
|
84
|
0 |
0 |
unless my $name = $self->name
|
|
87
|
0 |
0 |
unless -e $file
|
|
88
|
0 |
0 |
unless -e $file
|
|
91
|
1 |
0 |
unless $self->version
|
|
92
|
1 |
0 |
unless $self->perl_version
|
|
97
|
0 |
1 |
if ($pod =~ s/\.pm$/.pod/i and -e $pod)
|
|
101
|
1 |
0 |
unless $self->author
|
|
102
|
1 |
0 |
unless $self->license
|
|
103
|
1 |
0 |
unless $self->abstract
|
|
109
|
0 |
0 |
if @_
|
|
115
|
0 |
0 |
unless $self->is_admin
|
|
117
|
0 |
0 |
unless (-e 'MANIFEST')
|
|
134
|
0 |
0 |
unless $build->find_dist_packages
|
|
144
|
0 |
0 |
if (@_ == 1 and ref $_[0]) { }
|
|
153
|
0 |
0 |
ref $_ eq 'HASH' ? :
|
|
|
0 |
0 |
ref $_ ? :
|
|
172
|
0 |
0 |
$$self{'values'}{'features'} ? :
|
|
179
|
0 |
0 |
if $type
|
|
192
|
0 |
0 |
unless $self->can($key)
|
|
193
|
0 |
0 |
if (ref $value eq 'HASH') { }
|
|
207
|
0 |
0 |
unless $self->is_admin
|
|
233
|
0 |
3 |
unless open FH, "< $file"
|
|
240
|
0 |
1 |
if ($self->_slurp($file) =~ /
^
use \s*
v?
([\d_\.]+)
\s* ;
/imsx) { }
|
|
263
|
1 |
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) { }
|
|
284
|
1 |
0 |
if ($self->_slurp($file) =~ /
(
=head \d \s+
(?:licen[cs]e|licensing|copyright|legal)\b
.*?
)
(=head\\d.*|=cut.*|)
\z
/imsx)
|
|
311
|
1 |
0 |
if ($license_text =~ /\b$pattern\b/i)
|