| line |
true |
false |
branch |
|
23
|
7 |
3 |
if @args |
|
43
|
8 |
2 |
if defined $delimiter |
|
45
|
2 |
8 |
if defined $handle_whitespace |
|
51
|
2 |
8 |
if ($$self{'handle_whitespace'}) { } |
|
57
|
9 |
1 |
if ($$self{'delimiter'}) |
|
65
|
60 |
88 |
if (/$delimiter/) { } |
|
71
|
75 |
121 |
if ($char =~ /^$delimiter$/) { } |
|
73
|
31 |
44 |
if (defined $token and $token =~ /^.*$/) |
|
87
|
47 |
74 |
unless defined $token |
|
94
|
16 |
44 |
if defined $token |
|
112
|
1 |
5 |
wantarray ? : |
|
129
|
1 |
4 |
unless (caller())[0] eq 'String::Tokenizer' |
|
148
|
103 |
5 |
$$self{'index'} < scalar @{$$self{'tokens'};} ? : |
|
158
|
1 |
117 |
if $$self{'index'} >= scalar @{$$self{'tokens'};} |
|
164
|
1 |
25 |
if $$self{'index'} <= 0 |
|
176
|
3 |
38 |
if $$self{'index'} <= 0 or $$self{'index'} >= scalar @{$$self{'tokens'};} |
|
185
|
1 |
4 |
if ($self->lookAheadToken eq $token_to_match) |
|
200
|
20 |
3 |
if ($token ne $token_to_match) { } |
|
208
|
1 |
3 |
unless ($matched) |
|
222
|
1 |
2 |
if ($self->lookAheadToken eq $token_to_match) |
|
234
|
1 |
17 |
if $self->nextToken eq $token_to_match |
|
245
|
3 |
1 |
if $self->lookAheadToken =~ /^\s+$/ |