| 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) =~ /
|
|
355
|
0 |
0 |
unless ($self->module_name)
|
|
364
|
2 |
1 |
if ($_[0] =~ /
|
|
384
|
0 |
0 |
if ($perl_version) { }
|
|
395
|
0 |
0 |
if ($content =~ /
|
|
406
|
0 |
0 |
if (eval 'require Pod::Escapes; 1') { }
|
|
|
0 |
0 |
elsif (eval 'require Pod::Text; 1' and $Pod::Text::VERSION < 3) { }
|
|
416
|
0 |
0 |
defined $Pod::Escapes::Name2character_number{$1} ? :
|
|
|
0 |
0 |
defined $2 ? :
|
|
427
|
0 |
0 |
$Pod::Text::VERSION < 2 ? :
|
|
435
|
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 {
|
|
652
|
0 |
0 |
unless my $meta = $self->_write_mymeta_data
|
|
663
|
0 |
0 |
unless (eval {
|
|
668
|
0 |
0 |
unless my $meta = $self->_write_mymeta_data
|
|
682
|
0 |
0 |
unless -f "META.yml"
|
|
685
|
0 |
0 |
unless (eval {
|
|
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'})
|