| line |
true |
false |
branch |
|
78
|
0 |
0 |
if (@_) |
|
88
|
100 |
49267 |
if $self->empty |
|
95
|
0 |
5 |
if $self->empty |
|
109
|
22 |
0 |
if (@_) |
|
126
|
13178 |
0 |
unless $$self{'_posn'} >= length $$self{'_str'} |
|
127
|
479 |
12699 |
if $self->current =~ /[\r\n]/ |
|
141
|
3 |
1363 |
if ($self->current =~ /['"]/) { } |
|
165
|
234 |
75 |
if ('.' eq substr($getnum, -1, 1)) |
|
178
|
492 |
182 |
unless ($term) |
|
194
|
5 |
0 |
unless ($term) |
|
218
|
90 |
4877 |
if ($self->current eq '%') |
|
224
|
0 |
4967 |
if ($self->current eq '/') |
|
226
|
0 |
0 |
if ($self->current ne '*') |
|
234
|
0 |
0 |
if ($self->current ne '/') |
|
268
|
160 |
234 |
unless ($is_primitive) |
|
272
|
243 |
151 |
$is_primitive ? : |
|
275
|
369 |
25 |
if $adding_builtins |
|
296
|
343 |
58 |
if ($self->current eq ':') { } |
|
299
|
234 |
109 |
if ($self->current eq '=') { } |
|
|
0 |
109 |
elsif ($self->current ne '-') { } |
|
340
|
0 |
401 |
if ($self->current ne '.') |
|
358
|
692 |
804 |
if ($self->current =~ /^[[:lower:]'"]$/) { } |
|
|
674 |
130 |
elsif ($self->current =~ /^[[:upper:]]$/) { } |
|
|
5 |
125 |
elsif ('_' eq $self->current and $self->peek =~ /^[\]\|\.;\s\,\)]$/) { } |
|
|
75 |
50 |
elsif ($self->current =~ /^[-.[:digit:]]$/) { } |
|
|
23 |
27 |
elsif ('[' eq $self->current) { } |
|
|
27 |
0 |
elsif ('!' eq $self->current) { } |
|
363
|
508 |
184 |
if ('(' eq $self->current) { } |
|
376
|
0 |
508 |
if (')' ne $self->current) |
|
414
|
3 |
20 |
if (']' eq $self->current) { } |
|
433
|
11 |
9 |
if ('|' eq $self->current) { } |
|
443
|
0 |
20 |
if (']' ne $self->current) |