Branch Coverage

File:blib/lib/Test/YAML/Meta/Version.pm
Coverage:91.5%

line%coveragebranch
279100TFunless ($$self{'spec'})
280100TF$$data{'meta-spec'} && $$data{'meta-spec'}{'version'} ? :
284100TFdefined $$self{'errors'} ? :
289100TFunless $$self{'errors'}
314100TFif (ref $data ne 'HASH')
320100TFunless $$spec{$key}{'mandatory'}
321100TFif defined $$data{$key}
329100TFif ($$spec{$key}) { }
50TFelsif ($$spec{':key'}) { }
330100TFif ($$spec{$key}{'value'}) { }
100TFelsif ($$spec{$key}{'map'}) { }
50TFelsif ($$spec{$key}{'list'}) { }
340100TFif ($$spec{':key'}{'value'}) { }
100TFelsif ($$spec{':key'}{'map'}) { }
50TFelsif ($$spec{':key'}{'list'}) { }
359100TFif (ref $data ne 'ARRAY')
36450TFif (defined $$spec{'mandatory'})
3650TFif (not defined $$data[0])
372100TFif (defined $$spec{'value'}) { }
50TFelsif (defined $$spec{'map'}) { }
50TFelsif (defined $$spec{'list'}) { }
50TFelsif ($$spec{':key'}) { }
461100TFif (defined $value)
462100TFif $value and $value =~ /^--- #YAML:1.0/
485100TFif (defined $value)
486100TFif ($value and $value =~ /^$badproto$/)
490100TFif ($value and $value =~ /^$badproto/ and not $1 =~ /$protocol/)
494100TFif $value and $value =~ /^$urlregex$/
511100TFif (defined $value)
512100TFif $value and $known_specs{$$self{'spec'}} eq $value
513100TFif ($value and $known_urls{$value})
524100TFif (defined $value)
525100TFif $value or $value =~ /^0$/
533100TFunless defined $value
534100TFif $value or $value =~ /^0$/
541100TFif defined $value
548100TFif (defined $value and $value || $value =~ /0/)
550100TFunless $self->version($key, $_)
553100TFunless defined $value
560100TFif (defined $value) { }
561100TFunless $value or $value =~ /0/
562100TFif $value =~ /^\s*((<|<=|>=|>|!=|==)\s*)?\d+((\.\d+((_|\.)\d+)?)?)/
572100TFif (defined $value) { }
573100TFif $value =~ /^(0|1|true|false)$/
599100TFif (defined $value) { }
600100TFif $value and exists $licenses{$value}
610100TFif (defined $key) { }
611100TFif $key and $key =~ /^([A-Z][a-z]+)+$/
621100TFif (defined $key) { }
622100TFif $key and $key =~ /^([-_a-z]+)$/
632100TFif (defined $key) { }
633100TFif $key and $key =~ /^[A-Za-z0-9_]+(::[A-Za-z0-9_]+)*$/
645100TFif $$self{'stack'}