Branch Coverage

inc/Module/Install/Metadata.pm
Criterion Covered Total %
branch 6 70 8.5


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)