Branch Coverage

blib/lib/Metadata/IAFA.pm
Criterion Covered Total %
branch 24 80 30.0


line true false branch
47 0 0 if (ref $self)
49 0 0 @_ ? :
55 0 0 unless defined $self
73 12 0 unless defined $$options{$_}
96 0 0 unless @_
107 0 0 defined $value ? :
0 0 defined $index ? :
0 8 if $$self{'DEBUG'}
108 1 7 if ($element eq 'Template-Type')
112 3 4 if $element =~ s/-v(\d+)$//
120 0 0 defined $index ? :
0 14 if $$self{'DEBUG'}
122 3 11 if $element =~ s/-v(\d+)$//
133 0 1 if eof $fh
140 4 0 if (/^([-#\w]+):\s*(.*)$/) { }
0 0 elsif (/^\s+(.*)$/) { }
0 0 elsif (not $_) { }
142 3 1 if $element
149 0 0 if $$self{'STRICT'} and not $bit
152 0 0 if ($value)
153 0 0 if ($$self{'STRICT'}) { }
155 0 0 unless ($element =~ /URI$/)
172 1 0 if $element
173 0 1 if $$self{'DEBUG'}
187 2 3 unless defined $value
189 0 3 if ($$self{'STRICT'}) { }
194 1 2 $variants > 1 ? :
195 0 3 if ($$self{'STRICT'} or $$self{'WRAP'})
229 1 0 unless ($$self{'STRICT'})
230 1 0 if $value =~ /^\d+$/
232 0 0 if (my($year, $month, $day) = $value =~ /^(\d\d\d\d)-(\d\d)-(\d\d)$/)
248 0 1 if ($$self{'STRICT'})
262 0 0 unless defined $uri
265 0 0 if ($uri =~ /^(.+)\s+->\s+(.+)$/) { }
272 0 0 if ($path =~ m[^\w+://.+]) { }
0 0 elsif ($path =~ m[/([^/]+)$]) { }
0 0 elsif (not $path =~ m[/]) { }
289 0 0 $remotepath ? :
296 0 0 if $type eq $Metadata::IAFA::HEADER_TEMPLATE_TYPE
297 0 0 if $type eq $Metadata::IAFA::FOOTER_TEMPLATE_TYPE