| line |
true |
false |
branch |
|
59
|
0 |
0 |
if (defined wantarray and not @_) |
|
62
|
0 |
0 |
@_ ? : |
|
70
|
0 |
0 |
if defined wantarray and not @_ |
|
79
|
0 |
0 |
if defined wantarray and not @_ |
|
89
|
0 |
0 |
unless (@_) |
|
90
|
0 |
0 |
unless $self->{'values'}{'resources'} |
|
95
|
0 |
0 |
unless @_ |
|
96
|
0 |
0 |
unless my $uri = shift() |
|
107
|
0 |
0 |
unless @_ |
|
110
|
0 |
0 |
unless my $module = shift() |
|
130
|
0 |
0 |
unless my $name = shift() |
|
131
|
0 |
0 |
unless my $value = shift() |
|
132
|
0 |
0 |
if ($name eq lc $name and not $lc_resource{$name}) |
|
154
|
0 |
0 |
@_ ? : |
|
155
|
0 |
0 |
if ($self->{'values'}{'dynamic_config'}) |
|
159
|
0 |
0 |
$value ? : |
|
170
|
5 |
5 |
unless @_ |
|
171
|
0 |
5 |
unless my $version = shift() |
|
179
|
0 |
5 |
unless ($version >= 5.005) |
|
189
|
0 |
0 |
unless (defined $file) |
|
190
|
0 |
0 |
unless my $name = $self->name |
|
194
|
0 |
0 |
unless -e $file |
|
195
|
0 |
0 |
unless (-e $file) |
|
199
|
0 |
0 |
unless (-f $file) |
|
209
|
0 |
0 |
unless -e $pod |
|
212
|
0 |
0 |
unless $self->name |
|
213
|
0 |
0 |
unless $self->version |
|
214
|
0 |
0 |
unless $self->perl_version |
|
215
|
0 |
0 |
unless $self->author |
|
|
0 |
0 |
unless @{[] unless $self->author;} |
|
216
|
0 |
0 |
unless $self->license |
|
217
|
0 |
0 |
unless $self->abstract |
|
225
|
0 |
0 |
if @_ |
|
231
|
0 |
0 |
unless $self->is_admin |
|
232
|
0 |
0 |
unless (-e 'MANIFEST') |
|
247
|
0 |
0 |
unless $build->find_dist_packages |
|
256
|
0 |
0 |
if (@_ == 1 and ref $_[0]) { } |
|
268
|
0 |
0 |
ref $_ eq 'HASH' ? : |
|
|
0 |
0 |
ref $_ ? : |
|
282
|
0 |
0 |
$self->{'values'}{'features'} ? : |
|
289
|
0 |
0 |
if $type |
|
302
|
0 |
0 |
unless $self->can($key) |
|
303
|
0 |
0 |
if (ref $value eq 'HASH') { } |
|
316
|
0 |
0 |
unless $self->is_admin |
|
344
|
0 |
0 |
if (Module::Install::_read($file) =~ /
^ \s*
package \s*
([\w:]+)
[\s|;]*
/imsx) { } |
|
355
|
0 |
0 |
unless ($self->module_name) |
|
364
|
2 |
1 |
if ($_[0] =~ /
^\s*
(?:use|require) \s*
v?
([\d_\.]+)
\s* ;
/imsx) { } |
|
384
|
0 |
0 |
if ($perl_version) { } |
|
395
|
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) { } |
|
406
|
0 |
0 |
if (eval 'require Pod::Escapes; 1') { } |
|
|
0 |
0 |
elsif (eval 'require Pod::Text; 1' and $Pod::Text::VERSION < 3) { } |
|
417
|
0 |
0 |
defined $Pod::Escapes::Name2character_number{$1} ? : |
|
|
0 |
0 |
defined $2 ? : |
|
428
|
0 |
0 |
$Pod::Text::VERSION < 2 ? : |
|
437
|
0 |
0 |
defined $mapping->{$1} ? : |
|
|
0 |
0 |
defined $2 ? : |
|
477
|
0 |
0 |
unless @_ |
|
478
|
0 |
0 |
unless my $license = shift() |
|
485
|
0 |
0 |
if ($license_urls{$license}) |
|
509
|
5 |
9 |
unless my $license_text = shift() |
|
540
|
9 |
29 |
if ($license_text =~ /\b$pattern\b/i) |
|
549
|
0 |
0 |
if (my $license = _extract_license(Module::Install::_read($_[0]))) { } |
|
573
|
0 |
0 |
unless (@links) |
|
577
|
0 |
0 |
if (@links > 1) |
|
618
|
0 |
13 |
if (ref $v) |
|
629
|
0 |
0 |
unless $key =~ /^x_/ |
|
647
|
0 |
0 |
unless (eval {
do {
require YAML::Tiny;
1
}
}) |
|
652
|
0 |
0 |
unless my $meta = $self->_write_mymeta_data |
|
663
|
0 |
0 |
unless (eval {
do {
require JSON;
1
}
}) |
|
668
|
0 |
0 |
unless my $meta = $self->_write_mymeta_data |
|
682
|
0 |
0 |
unless -f 'META.yml' |
|
685
|
0 |
0 |
unless (eval {
do {
require Parse::CPAN::Meta;
1
}
}) |
|
692
|
0 |
0 |
if ($perl) |
|
697
|
0 |
0 |
if ($perl >= 5.006) |
|
711
|
0 |
0 |
if (exists $val->{'requires'}) |
|
714
|
0 |
0 |
if (exists $val->{'build_requires'}) |