Branch Coverage

perllib/Arch/Name.pm
Criterion Covered Total %
branch 73 94 77.6


line true false branch
37 12 89 if ref $class
41 88 13 if ($param) { }
44 2 11 if $on_error >= 0
47 0 101 if $on_error > 1 and $ERROR
58 0 90 if (not $param) { }
86 4 elsif (not ref $param) { }
0 4 elsif (UNIVERSAL::isa($param, 'Arch::Name')) { }
3 1 elsif (ref $param eq 'ARRAY') { }
1 0 elsif (ref $param eq 'HASH') { }
62 40 46 if ($param =~ m[^($archive_re)(?:/($category_re)(?:(?:--($branch_re|))?(?:--($version_re|FIRST|LATEST)(?:--($revision_re|FIRST|LATEST))?)?)?)?$]o) { }
66 26 14 if defined $$self[$ELEMENT_INDEX{'version'} - 1]
74 3 0 if @$param
76 1 0 if %$param
87 1 7 if @_
96 17 15 if (ref $items eq 'HASH') { }
107 54 30 unless exists $items{$elem}
109 0 30 if (defined $item and $i > @$self)
113 11 19 if (not defined $item) { }
18 1 elsif ($elem eq 'branch' and $item eq '' or $item =~ /^$regexp$/) { }
114 6 5 if @$self > $i
125 0 17 if @$self > $i
126 1 16 if %items
130 6 9 if (ref $items eq 'ARRAY')
132 0 6 if @$items > $level
138 0 15 if (ref $items[0])
143 0 15 if @items >= @ELEMENTS - $level
176 27 0 if @$self
177 19 8 if @$self > 1
178 12 15 if @$self > 2 and $$self[2] ne ''
179 14 13 if @$self > 3
180 8 19 if @$self > 4
193 3 0 wantarray ? :
202 2 1 wantarray ? :
211 3 0 unless @_
217 2 0 unless @_
223 4 0 unless @_
229 1 0 unless @_
235 1 0 unless @_
247 13 2 unless $stringify
254 3 2 $elem =~ /^\d+$/ ? :
255 0 5 unless defined $index1
256 2 3 if $index1 > @$self
265 92 0 ref $this ? :
267 15 77 unless defined $elem
269 60 17 $elem =~ /^\d+$/ ? :
270 0 77 unless defined $index1
271 8 69 if $at_least