| line |
true |
false |
branch |
|
28
|
0 |
1 |
unless open my $fh, "<", $file |
|
37
|
1 |
118 |
if $counter == 1 |
|
59
|
0 |
1 |
unless open my $fh, "<", $file |
|
77
|
0 |
3 |
unless $file and -e $file |
|
88
|
1 |
1 |
if (length $string < 4) { } |
|
94
|
1 |
56 |
if (lc $self->symbols->{$symbol}[1] eq lc $string) |
|
108
|
2 |
112 |
if ($string =~ /^\d+$/ and $self->symbols->{$symbol}[0] == $string or lc $self->symbols->{$symbol}[2] eq lc $string) |
|
125
|
4 |
226 |
if ($string =~ /^\d+$/ and $self->symbols->{$symbol}[0] == $string or lc $self->symbols->{$symbol}[1] eq lc $string) |
|
142
|
1 |
2 |
if (not $key =~ /^\d+$/ and length $key < 4) { } |
|
148
|
114 |
2 |
unless $symbol eq $key |