Branch Coverage

blib/lib/Biblio/SICI.pm
Criterion Covered Total %
branch 44 100 44.0


line true false branch
75 0 58 $self->mode eq 'strict' ? :
77 58 0 if (defined $string)
83 0 58 unless ($string)
84 0 0 $strictMode ? :
89 58 0 if ($string =~ /;([0-9])(?:-.)?\Z/)
90 0 58 if ("$1" ne '2') { }
91 0 0 $strictMode ? :
97 58 0 if ($string =~ s/;2-(.)\Z//)
111 58 0 if ($tmp and exists $chars[0]) { }
112 58 0 if ($chars[0] eq '(') { }
0 0 elsif ($chars[0] eq '<') { }
123 0 0 if ($tmp =~ m[\A([A-Z0-9/]+):([A-Z0-9/]+)(?::([+*]))?\Z]) { }
0 0 elsif ($tmp) { }
126 0 0 if $3
135 0 0 $strictMode ? :
139 0 0 $strictMode ? :
146 57 1 if ($tmp and exists $chars[0] and $chars[0] eq ')') { }
1 0 elsif (exists $chars[0] and $chars[0] eq ')') { }
156 0 0 $strictMode ? :
163 55 3 if ($tmp and exists $chars[0] and $chars[0] eq '<') { }
3 0 elsif (exists $chars[0] and $chars[0] eq '<') { }
166 39 16 if ($tmp =~ m[\A([A-Z0-9/]+):([A-Z0-9/]+)(?::([+*]))?\Z]) { }
16 0 elsif ($tmp) { }
169 0 39 if $3
180 0 0 $strictMode ? :
188 28 30 if ($tmp and exists $chars[0] and $chars[0] eq '>') { }
30 0 elsif (exists $chars[0] and $chars[0] eq '>') { }
191 2 26 if ($tmp =~ /\A::(.+)\Z/) { }
1 25 elsif ($tmp =~ /\A:([^:]+)(?::(.+))?\Z/) { }
25 0 elsif ($tmp =~ /\A([^:]+):([^:]+)(?::(.+))?\Z/) { }
196 0 1 if $2
201 2 23 if $3
212 0 0 $strictMode ? :
216 58 0 if (exists $chars[0])
220 58 0 if (exists $chars[0] and $chars[0] eq '.') { }
0 0 elsif (exists $chars[0]) { }
227 58 0 if (exists $chars[0])
231 58 0 if (exists $chars[0] and $chars[0] eq '.') { }
0 0 elsif (exists $chars[0]) { }
238 58 0 if (exists $chars[0] and exists $chars[1])
243 0 58 if ($strictMode and not $isValid)
247 0 58 if ($checkChar ne $self->checkchar)
250 0 58 unless ($checkChar =~ /\A[0-9A-Z#]\Z/)
254 0 58 if ($self->control->csi ne $csi)
258 58 0 $self->parsedString eq $self->to_string ? :
308 58 0 if ($itemIsValid and $contribIsValid and $controlIsValid)
321 0 63 unless ($self->item->is_valid)
325 0 63 unless ($self->contribution->is_valid)
329 0 63 unless ($self->control->is_valid)
334 0 63 if ($hasProblems)