Condition Coverage

blib/lib/Module/Metadata.pm
Criterion Covered Total %
condition 79 111 71.1


and 3 conditions

line !l l&&!r l&&r condition
118 0 1 110 defined $filename and -f $filename
126 0 1 4 defined $handle and defined $filename
141 1 0 6 defined $filename and -f $filename
222 0 2 0 $args{'dir'} and $args{'files'}
264 3 0 3 -f $_ and /\.pm$/
330 0 0 0 exists $prime{$package}{'version'} and defined $prime{$package}{'version'}
427 114 0 6 $self->{'module'} and length $self->{'module'}
466 10 0 0 -e $testfile and not -d _
517 0 0 116 defined $count and $count >= 2
529 0 0 1 defined $count and $count >= 1
0 0 1 defined $count and $count >= 1 and $buf eq "\277"
578 39 1 4 $self->{'collect_pod'} and length $pod_data
585 14 10 1 $self->{'decode_pod'} and $line =~ /^=encoding ([\w-]+)/
593 8 0 2 $self->{'collect_pod'} and length $pod_data
621 890 97 20 $version_fullname and $version_package
955 21 11 $package eq "main" and $version_fullname
976 3 8 $package eq "main" and $version_fullname and not exists $vers{'main'}
955 5 19 $package eq "main" and not exists $vers{'main'}
960 10 9 $package eq "main" and not exists $vers{'main'} and $line =~ /\w/
881 3 86 $version_fullname and $need_vers
627 3 131 12 not exists $vers{$package} and defined $version
641 18 0 2 defined $vers{$version_package} and length $vers{$version_package}
666 84 2 0 defined $vers{$package} and length $vers{$package}
672 117 2 1 $self->{'collect_pod'} and length $pod_data
676 119 0 1 $self->{'decode_pod'} and $encoding
720 112 0 0 $@ =~ /Can't locate/ and -d "lib"
817 10 0 98 defined $mod and length $mod
10 6 92 defined $mod and length $mod and exists $self->{'versions'}{$mod}
829 0 0 5 defined $sect and length $sect
0 2 3 defined $sect and length $sect and exists $self->{'pod'}{$sect}

or 2 conditions

line l !l condition
139 6 1 $props{'inc'} ||= \@INC
446 0 1 $self->{'packages'}[0] || ''
461 7 1 shift() || \@INC

or 3 conditions

line l !l&&r !l&&!r condition
440 6 2 1 grep /main/, @{$$self{"packages"};} or grep /main/, keys %{$$self{"versions"};}
460 8 0 0 shift() || croak('find_module_by_name() requires a package name')
621 136 10 1007 $line =~ /$PKG_REGEXP/o or $line =~ /$CLASS_REGEXP/x
793 6 6 0 $error ||= $@
815 21 77 10 shift() || $self->{'module'}