Branch Coverage

blib/lib/CPAN/Meta/Validator.pm
Criterion Covered Total %
branch 67 126 53.1


line true false branch
492 687 70 unless defined $self->{'errors'}
528 4 7378 if (ref $spec ne "HASH")
533 2 7376 if (ref $data ne "HASH")
539 20413 8006 unless $spec->{$key}{'mandatory'}
540 7984 22 if defined $data->{$key}
548 15273 15752 if ($spec->{$key}) { }
15752 0 elsif ($spec->{':key'}) { }
549 11394 3879 if ($spec->{$key}{'value'}) { }
2779 1100 elsif ($spec->{$key}{'map'}) { }
1100 0 elsif ($spec->{$key}{'list'}) { }
561 11871 3881 if ($spec->{':key'}{'value'}) { }
3881 0 elsif ($spec->{':key'}{'map'}) { }
0 0 elsif ($spec->{':key'}{'list'}) { }
582 2 1098 if (ref $data ne "ARRAY")
587 0 1098 if (defined $spec->{'mandatory'})
588 0 0 unless (defined $data->[0])
595 1949 0 if (defined $spec->{'value'}) { }
0 0 elsif (defined $spec->{'map'}) { }
0 0 elsif (defined $spec->{'list'}) { }
0 0 elsif ($spec->{':key'}) { }
720 0 0 if (defined $value)
721 0 0 if $value and $value =~ /^--- #YAML:1.0/
729 181 0 if (defined $value) { }
731 22 159 if ($version =~ /_/) { }
732 22 0 if $value =~ /\A(?:testing|unstable)\z/
736 159 0 if $value =~ /\A(?:stable|testing|unstable)\z/
753 824 0 if (defined $value)
755 0 824 unless (defined $scheme and length $scheme)
759 0 824 unless (defined $auth and length $auth)
772 380 0 if (defined $value)
773 380 0 if $value and $known_specs{$self->{'spec'}} eq $value
774 0 0 if ($value and $known_urls{$value})
787 5279 1 if (defined $value)
788 5278 1 if $value or $value =~ /^0$/
796 0 0 unless defined $value
797 0 0 if $value or $value =~ /^0$/
804 2619 0 if defined $value
811 10580 0 if (defined $value and $value || $value =~ /0/)
813 12 10638 unless $self->version($key, $_)
816 0 0 unless defined $value
823 14468 0 if (defined $value) { }
824 0 14468 unless $value or $value =~ /0/
825 14456 12 if $value =~ /^\s*((<|<=|>=|>|!=|==)\s*)?v?\d+((\.\d+((_|\.)\d+)?)?)/
835 685 0 if (defined $value) { }
836 685 0 if $value =~ /^(0|1)$/
893 532 190 $self->{'spec'} < 2 ? :
894 721 1 if (defined $value) { }
895 719 2 if $value and exists $licenses->{$value}
905 98 0 if (defined $key) { }
908 98 0 if $key and $key =~ /^[_a-z]+$/i and $key =~ /[A-Z]/
918 315 0 if (defined $key) { }
919 315 0 if $key and $key =~ /^x_/i
929 0 0 if (defined $key) { }
930 0 0 if $key and $key =~ /^([a-z][_a-z]+)$/i
940 13199 0 if (defined $key) { }
941 13199 0 if $key and $key =~ /^[A-Za-z0-9_]+(::[A-Za-z0-9_]+)*$/
952 492 0 if (defined $key) { }
953 492 0 if length $key and grep {$key eq $_;} @valid_phases
954 0 0 if $key =~ /x_/i
965 624 0 if (defined $key) { }
966 624 0 if length $key and grep {$key eq $_;} @valid_relations
967 0 0 if $key =~ /x_/i
979 43 4 if $self->{'stack'}