Branch Coverage

blib/lib/Text/Unmunch.pm
Criterion Covered Total %
branch 77 126 61.1


line true false branch
28 0 4 unless (defined $self->{'aff'} and defined $self->{'wf'})
31 0 4 unless (-e $self->{'aff'} and -e $self->{'wf'})
34 0 4 unless (defined $self->{'debug'})
37 4 0 if ($self->{'debug'} ne '')
40 0 4 if (not defined $self->{'sfx'}) { }
1 3 elsif (length $self->{'sfx'} > 1) { }
45 0 4 if (not defined $self->{'pfx'}) { }
1 3 elsif (length $self->{'pfx'} > 1) { }
51 1 3 if ($self->{'sfx'} ne '' and $self->{'sfx'} eq 's')
54 1 3 if ($self->{'pfx'} ne '' and $self->{'pfx'} eq 'p')
57 1 3 if ($self->{'sfx'} eq '' and $self->{'pfx'} eq '')
61 1 3 if ($self->{'debug_class'} >= 2)
137 0 4 unless open FH, '<', $self->{'wf'}
144 0 8 if ($self->{'debug_class'} >= 3)
150 20 4 if (defined $idx)
151 5 15 if ($self->{'debug_class'} >= 2)
163 0 44 if ($self->{'debug_class'} >= 3)
166 20 24 if (met_cond($szo, $cond, $type, $self->{'debug_class'}))
168 16 4 if ($type eq 's') { }
4 0 elsif ($type eq 'p') { }
172 4 0 if ($comb eq 'y' or $comb eq 'Y') { }
178 16 4 if ($self->{'sfx'} and defined $ujszo)
183 6 2 if ($self->{'pfx'})
184 6 0 if ($self->{'pfx'})
189 6 0 if (defined $ujszo)
217 0 4 unless open FH, '<', $affixfile
220 292 1572 if (index($_, 'SFX ') == 0 or index($_, 'PFX ') == 0)
221 0 292 if ($debug >= 4)
224 92 200 if ($new) { }
232 64 28 if ($fields[0] eq 'SFX') { }
252 92 108 if ($counter eq $sfx[$idx]{'count'})
277 108 720 if ($_ eq '[') { }
108 612 elsif ($_ eq ']') { }
278 108 0 if (not $in_loop) { }
285 108 0 if ($in_loop) { }
293 464 148 if ($in_loop) { }
301 0 200 if ($debug >= 4)
318 0 44 if ($debug >= 5)
322 12 32 if ($carr[0] eq '.' and $condarrsize == 1) { }
32 0 elsif ($type eq 's') { }
0 0 elsif ($type eq 'p') { }
330 0 40 if ($debug >= 4)
333 16 24 if (length $carr[$i] == 1) { }
334 8 8 if ($carr[$i] ne $tobechecked and $carr[$i] ne '.')
335 0 8 if ($debug >= 3)
344 12 12 if (substr($carr[$i], 0, 1) eq '^') { }
346 4 56 if (substr($carr[$i], $j, 1) eq $tobechecked)
347 0 4 if ($debug >= 3)
356 0 40 if (substr($carr[$i], $j, 1) eq $tobechecked)
362 12 8 if ($matched eq 0)
363 0 12 if ($debug >= 3)
377 0 0 if ($debug >= 4)
380 0 0 if (length $carr[$i] == 1) { }
381 0 0 if ($carr[$i] ne $tobechecked)
382 0 0 if ($debug >= 3)
391 0 0 if (substr($carr[$i], 0, 1) eq '^') { }
393 0 0 if (substr($carr[$i], $j, 1) eq $tobechecked)
394 0 0 if ($debug >= 3)
403 0 0 if (substr($carr[$i], $j, 1) eq $tobechecked)
409 0 0 if ($matched eq 0)
410 0 0 if ($debug >= 3)
425 4 12 if ($strip ne '0')
433 0 0 if ($strip ne '0')