| line |
true |
false |
branch |
|
97
|
71 |
21 |
unless (exists $opts->{'syntax'}) |
|
100
|
1 |
70 |
if $opts->{'dims'} =~ /\D/ |
|
106
|
67 |
3 |
if (exists $defaults{$opts->{'dims'}}) { } |
|
117
|
7 |
84 |
if ($opts->{'syntax'} eq 'unefunge98') { } |
|
|
68 |
16 |
elsif ($opts->{'syntax'} eq 'befunge98') { } |
|
|
8 |
8 |
elsif ($opts->{'syntax'} eq 'trefunge98') { } |
|
|
7 |
1 |
elsif ($opts->{'syntax'} =~ /(\d+)funge98$/) { } |
|
118
|
6 |
1 |
unless defined $opts->{'dims'} |
|
119
|
6 |
1 |
unless defined $opts->{'ops'} |
|
120
|
6 |
1 |
unless defined $opts->{'storage'} |
|
121
|
6 |
1 |
unless defined $opts->{'wrapping'} |
|
123
|
1 |
67 |
unless defined $opts->{'dims'} |
|
124
|
67 |
1 |
unless defined $opts->{'ops'} |
|
125
|
66 |
2 |
unless defined $opts->{'storage'} |
|
126
|
67 |
1 |
unless defined $opts->{'wrapping'} |
|
128
|
6 |
2 |
unless defined $opts->{'dims'} |
|
129
|
7 |
1 |
unless defined $opts->{'ops'} |
|
130
|
7 |
1 |
unless defined $opts->{'storage'} |
|
131
|
7 |
1 |
unless defined $opts->{'wrapping'} |
|
133
|
3 |
4 |
unless defined $opts->{'dims'} |
|
134
|
6 |
1 |
unless defined $opts->{'ops'} |
|
135
|
6 |
1 |
unless defined $opts->{'storage'} |
|
136
|
6 |
1 |
unless defined $opts->{'wrapping'} |
|
165
|
3 |
83 |
if defined $opts->{'file'} |
|
196
|
1 |
3115 |
if exists $seen_before{$pos} |
|
201
|
719 |
2396 |
if ($char eq ' ') |
|
208
|
26 |
2370 |
if ($char eq ';') |
|
255
|
4 |
58 |
if length $self->_get_input |
|
258
|
51 |
7 |
if length $char |
|
277
|
1 |
6 |
unless open BF, "<$file" |
|
362
|
2756 |
0 |
unless defined $continue |
|
374
|
400 |
2356 |
if ($ip->get_string_mode) { } |
|
375
|
36 |
364 |
if ($char eq '"') { } |
|
|
8 |
356 |
elsif ($char eq ' ') { } |
|
396
|
2748 |
0 |
if ($continue) |
|
399
|
400 |
2348 |
if ($ip->get_string_mode) { } |
|
404
|
2550 |
198 |
unless $ip->get_end |
|
418
|
2422 |
14 |
if (exists $self->get_ops->{$char}) { } |
|
450
|
6128 |
221 |
if ($v->bounds_check($storage->min, $storage->max)) { } |
|
478
|
1 |
1680 |
if $ip->get_position == $orig |