| line |
true |
false |
branch |
|
220
|
16 |
1146 |
if ($doc =~ /^\d\d?\s/) { } |
|
|
148 |
998 |
elsif ($doc =~ /^\d\d\d-/) { } |
|
|
28 |
970 |
elsif ($doc =~ /^\d--/) { } |
|
238
|
8 |
8 |
if ($to =~ /-\s(\d+)/) |
|
244
|
0 |
16 |
if $seen{$name}++ |
|
249
|
4 |
12 |
if ($kexplain and length $kexplain) |
|
278
|
0 |
970 |
if $seen{$codenr}++ |
|
279
|
628 |
342 |
if ($rexplain) { } |
|
294
|
948 |
22 |
unless $realrecdocs[$r][4] and $realrecdocs[$r][4] eq '...' |
|
299
|
18 |
4 |
if (my($foundnumber) = $realrecdocs[$r][3] =~ /(\d+)/) { } |
|
302
|
2 |
16 |
if ($rr3 eq 'ZUSAETZLICHE ANGABEN ZUR 2. VERWEISUNGSFORM') { } |
|
|
2 |
14 |
elsif ($rr3 eq 'IDENTIFIKATIONSNUMMER DES 2. FRUEHEREN, ZEITWEISEN ODER SPAETEREN NAMENS DER KOERPERSCHAFT') { } |
|
|
6 |
8 |
elsif ($rr3 eq 'ERLAEUTERUNGEN ZUR 2. SCHLAGWORTKETTE') { } |
|
|
2 |
6 |
elsif ($rr3 eq 'KOERPERSCHAFT, BEI DER DIE 2. PERSON BESCHAEFTIGT IST') { } |
|
|
2 |
4 |
elsif ($rr3 eq 'IDENTIFIKATIONSNUMMER DES KOERPERSCHAFTSNAMENSATZES DER 2. KOERPERSCHAFT') { } |
|
|
2 |
2 |
elsif ($rr3 eq 'ZUSAETZE ZUM 2. PARALLELSACHTITEL') { } |
|
|
2 |
0 |
elsif ($rr3 eq 'SACHTITEL DER 2. NE') { } |
|
327
|
7726 |
66 |
unless $rr->[1] == $blueprint |
|
331
|
6 |
66 |
unless $blueprintrec |
|
332
|
0 |
66 |
unless $blueprintrec->[3] =~ /2/ |
|
371
|
2 |
0 |
if (my $pack = $self->_class) { } |
|
392
|
4 |
12 |
if (@{$base->{$k};} > 1) { } |
|
427
|
0 |
2 |
unless exists $type2pack{$type} |
|
448
|
0 |
2 |
if $self->[2] |
|
450
|
2 |
0 |
if ($DEBUG) |
|
457
|
16 |
0 |
if $derec =~ /\G($re)/cg |
|
459
|
16 |
0 |
if ($DEBUG) |
|
460
|
4 |
12 |
if %{$k->[4];} |
|
464
|
0 |
2 |
unless (my $daa = $struct->[0]{'datenanfangsadresse'}[0]) == 24 |
|
474
|
0 |
26 |
unless @strp >= 3 |
|
476
|
26 |
0 |
if ($DEBUG) |
|
479
|
26 |
0 |
$str->[0] ? : |
|
509
|
0 |
0 |
unless $sr->[$i][0] eq '004' |