| line |
true |
false |
branch |
|
31
|
0 |
21 |
unless $self->{'MBML_filename'} = $args->{'filename'} |
|
56
|
8 |
9 |
unless open SEQ, '<:raw', $seq |
|
64
|
0 |
16 |
unless length $_ |
|
66
|
0 |
16 |
unless s/^\s*(\w+)\s*\:\s*// |
|
70
|
1 |
15 |
if ($label eq 'cur') { } |
|
|
2 |
13 |
elsif ($label eq 'unseen') { } |
|
74
|
10 |
22 |
if (/^(\d+)\-(\d+)\s*$/) { } |
|
|
22 |
0 |
elsif (/^\d+\s*$/) { } |
|
97
|
0 |
11 |
unless (@_) |
|
102
|
0 |
11 |
unless open my $out, '>:raw', $filename |
|
116
|
0 |
1 |
unless open my $out, '>>:raw', $filename |
|
136
|
10 |
300 |
unless $labels->{'seen'} |
|
140
|
351 |
18 |
if $labels->{$_} |
|
151
|
1 |
11 |
if $_ eq 'current' |
|
161
|
15 |
6 |
$start == $end ? : |