Condition Coverage

blib/lib/Module/Metadata.pm
Criterion Covered Total %
condition 71 102 69.6


and 3 conditions

line !l l&&!r l&&r condition
107 0 1 100 defined $filename and -f $filename
115 0 1 4 defined $handle and defined $filename
130 1 0 5 defined $filename and -f $filename
211 0 2 0 $args{'dir'} and $args{'files'}
253 3 0 3 -f $_ and /\.pm$/
319 0 0 0 exists $prime{$package}{'version'} and defined $prime{$package}{'version'}
416 104 0 5 $self->{'module'} and length $self->{'module'}
455 9 0 0 -e $testfile and not -d _
506 0 0 105 defined $count and $count >= 2
518 0 0 1 defined $count and $count >= 1
0 0 1 defined $count and $count >= 1 and $buf eq "\277"
566 39 2 1 $self->{'collect_pod'} and length $pod_data
578 8 0 1 $self->{'collect_pod'} and length $pod_data
606 861 94 20 $version_fullname and $version_package
924 20 11 $package eq 'main' and $version_fullname
944 3 8 $package eq 'main' and $version_fullname and not exists $vers{'main'}
924 5 18 $package eq 'main' and not exists $vers{'main'}
929 10 8 $package eq 'main' and not exists $vers{'main'} and $line =~ /\w/
853 3 83 $version_fullname and $need_vers
612 3 125 6 not exists $vers{$package} and defined $version
626 18 0 2 defined $vers{$version_package} and length $vers{$version_package}
651 81 2 0 defined $vers{$package} and length $vers{$package}
657 107 1 1 $self->{'collect_pod'} and length $pod_data
700 109 0 0 $@ =~ /Can't locate/ and -d 'lib'
797 10 0 90 defined $mod and length $mod
10 5 85 defined $mod and length $mod and exists $self->{'versions'}{$mod}
809 0 0 4 defined $sect and length $sect
0 2 2 defined $sect and length $sect and exists $self->{'pod'}{$sect}

or 2 conditions

line l !l condition
128 5 1 $props{'inc'} ||= \@INC
435 0 1 $self->{'packages'}[0] || ''
450 6 1 shift() || \@INC

or 3 conditions

line l !l&&r !l&&!r condition
429 6 2 1 grep /main/, @{$$self{'packages'};} or grep /main/, keys %{$$self{'versions'};}
449 7 0 0 shift() || croak('find_module_by_name() requires a package name')
773 6 6 0 $error ||= $@
795 21 69 10 shift() || $self->{'module'}