| line |
true |
false |
branch |
|
236
|
2 |
0 |
if $genemap_file_name |
|
238
|
1 |
0 |
if $omimtxt_file_name |
|
262
|
0 |
2 |
unless (defined $self->_OMIM_text_file) |
|
266
|
0 |
2 |
if ($self->_done == 1) |
|
278
|
2 |
225 |
if ($line =~ /^\s*\*RECORD\*/) { } |
|
|
36 |
189 |
elsif ($line =~ /^\s*\*FIELD\*\s*(\S+)/) { } |
|
279
|
1 |
1 |
if ($self->_is_not_first_record == 1) { } |
|
291
|
34 |
2 |
if ($state != 0) |
|
296
|
2 |
34 |
if ($fieldtag eq 'NO') { } |
|
|
2 |
32 |
elsif ($fieldtag eq 'TI') { } |
|
|
4 |
28 |
elsif ($fieldtag eq 'TX') { } |
|
|
2 |
26 |
elsif ($fieldtag eq 'MN') { } |
|
|
2 |
24 |
elsif ($fieldtag eq 'AV') { } |
|
|
2 |
22 |
elsif ($fieldtag eq 'SA') { } |
|
|
2 |
20 |
elsif ($fieldtag eq 'RF') { } |
|
|
2 |
18 |
elsif ($fieldtag eq 'CS') { } |
|
|
6 |
12 |
elsif ($fieldtag eq 'CN') { } |
|
|
6 |
6 |
elsif ($fieldtag eq 'CD') { } |
|
|
6 |
0 |
elsif ($fieldtag eq 'ED') { } |
|
329
|
2 |
4 |
if ($saw_mini_min_flag == 1) { } |
|
337
|
2 |
4 |
if ($saw_mini_min_flag == 1) { } |
|
345
|
2 |
4 |
if ($saw_mini_min_flag == 1) { } |
|
365
|
0 |
1 |
unless (%record) |
|
418
|
4 |
0 |
if (defined $value) |
|
442
|
3 |
0 |
if (defined $value) |
|
444
|
1 |
2 |
if ($value =~ /\W/) |
|
467
|
2 |
26 |
if ($key == 1) { } |
|
|
2 |
24 |
elsif ($key == 2) { } |
|
|
2 |
22 |
elsif ($key == 3) { } |
|
|
2 |
20 |
elsif ($key == 5) { } |
|
|
2 |
18 |
elsif ($key == 6) { } |
|
|
2 |
16 |
elsif ($key == 7) { } |
|
|
2 |
14 |
elsif ($key == 8) { } |
|
|
2 |
12 |
elsif ($key == 9) { } |
|
|
2 |
10 |
elsif ($key == 10) { } |
|
|
2 |
8 |
elsif ($key == 11) { } |
|
|
2 |
6 |
elsif ($key == 4) { } |
|
|
2 |
4 |
elsif ($key == 14) { } |
|
|
2 |
2 |
elsif ($key == 13) { } |
|
|
2 |
0 |
elsif ($key == 12) { } |
|
474
|
2 |
0 |
if (exists $gm->{$val}) |
|
483
|
1 |
1 |
if ($title =~ /^\*/) { } |
|
|
1 |
0 |
elsif ($title =~ /^#/) { } |
|
491
|
2 |
0 |
if $val =~ /DESCRIPTION1\nDESCRIPTION2/ |
|
506
|
2 |
0 |
if $val eq 'clinical symptoms' |
|
510
|
2 |
0 |
if $val =~ /cn1\ncn2\ncn3/ |
|
514
|
2 |
0 |
if $val =~ /cd1\ncd2\ncd3/ |
|
518
|
2 |
0 |
if $val =~ /ed1\ned2\ned3/ |
|
553
|
0 |
2 |
if ($text) |
|
556
|
0 |
0 |
if ($line =~ /^([\w\s,]+)\:\s*$/) { } |
|
|
0 |
0 |
elsif ($line =~ /^\s+$/) { } |
|
|
0 |
0 |
elsif ($line =~ /^(\s+)([^;]+)\;?\s*$/) { } |
|
561
|
0 |
0 |
unless ($part) |
|
579
|
2 |
0 |
if (defined $locations) |
|
591
|
2 |
0 |
if (defined $gene_symbols) |
|
598
|
2 |
0 |
if (defined $mouse_correlates) |
|
616
|
2 |
0 |
if defined $a[6] |
|
617
|
2 |
0 |
if defined $a[10] |
|
618
|
2 |
0 |
if defined $a[11] |
|
639
|
22 |
62 |
if (not $line =~ /\w/) { } |
|
|
12 |
50 |
elsif ($line =~ /^\s*(\.\d+)/) { } |
|
|
12 |
38 |
elsif ($title eq '') { } |
|
|
20 |
18 |
elsif ($saw_empty_line == 0) { } |
|
|
18 |
0 |
elsif ($saw_empty_line == 1) { } |
|
644
|
10 |
2 |
if ($number ne '') |
|
664
|
12 |
6 |
if ($prev_line ne '') |
|
668
|
6 |
12 |
if ($description ne '') { } |
|
698
|
6 |
6 |
if ($symbol_mut_line =~ /\s*(.+?)\s*,\s*([a-z]{3})(\d+)([a-z]{3})/i) { } |
|
|
6 |
0 |
elsif ($symbol_mut_line =~ /\s*(.+?)\s*,\s*(.+)/) { } |
|
712
|
0 |
12 |
unless (defined $description) |
|
713
|
0 |
12 |
unless (defined $mutation) |
|
736
|
2 |
0 |
if ($text =~ /^(.+)\n/) { } |
|
771
|
6 |
2 |
if ($t =~ /(.+?)\s*:\s*(.+?[.?!])\s+(.+?)\s+(\S+?)\s*:\s*(\w?\d+.*)\s*,\s*(\d+)/) { } |
|
|
0 |
2 |
elsif ($t =~ /(.+?)\s*:\s*(.+?[.?!])\s*(.+?)\z/) { } |
|
780
|
6 |
0 |
if ($fromto =~ /(\d+)-+(\d+)/) { } |
|
|
0 |
0 |
elsif ($fromto =~ /\A(\w+)/) { } |
|
816
|
8 |
4 |
if (defined $value) |
|
817
|
0 |
8 |
unless (ref $value eq 'HASH') |
|
834
|
3 |
2 |
if (defined $value) |
|
835
|
0 |
3 |
unless ($value == 0 or $value == 1) |
|
851
|
3 |
2 |
if (defined $value) |
|
852
|
0 |
3 |
unless ($value == 0 or $value == 1) |
|
868
|
1 |
233 |
if (defined $value) |
|
869
|
0 |
1 |
unless ($value->isa('Bio::Root::IO')) |
|
893
|
0 |
137 |
unless (scalar @a == 18) |
|
934
|
8 |
28 |
if (exists $record_ref->{$state}) { } |