| line |
true |
false |
branch |
|
37
|
0 |
1 |
if (exists $args{'options'}) |
|
39
|
0 |
0 |
unless exists $$self{'options'}{$key} |
|
49
|
122 |
0 |
unless defined $count |
|
50
|
8 |
114 |
if $count > length $$self{'string'} |
|
60
|
0 |
0 |
unless defined $count |
|
61
|
0 |
0 |
if $count > length $$self{'string'} |
|
81
|
0 |
33 |
if ($$self{'options'}{'debug'}) |
|
85
|
16 |
17 |
if ($var) { } |
|
105
|
0 |
8 |
if not defined $string or length $string == 0 |
|
117
|
8 |
44 |
if not defined $current or length $current == 0 |
|
120
|
8 |
36 |
if (defined(my $parse = $self->parse_character($current, $previous))) |
|
122
|
4 |
4 |
if ($parse =~ /\s/o) |
|
128
|
0 |
36 |
if ($current eq '[') |
|
131
|
0 |
0 |
if ($self->peek eq ']') |
|
137
|
5 |
31 |
if ($current eq '(' and $self->output eq '') |
|
158
|
6 |
0 |
if (defined(my $variable = $$self{'variables'}{$char})) |
|
159
|
3 |
3 |
if (ref $variable eq 'CODE') { } |
|
|
0 |
3 |
elsif (ref $variable eq 'ARRAY') { } |
|
|
0 |
3 |
elsif (ref $variable eq 'HASH') { } |
|
|
0 |
3 |
elsif (ref $variable eq 'SCALAR') { } |
|
|
0 |
3 |
elsif (ref $variable and UNIVERSAL::can($variable, 'eval')) { } |
|
180
|
0 |
0 |
if ($$self{'options'}{'space_compression'} and $prev =~ /\s/o || $$self{'func_depth'} && $prev eq ',') |
|
183
|
0 |
0 |
if $char =~ /\s/o |
|
186
|
0 |
114 |
if ($prev eq '\\') |
|
192
|
6 |
108 |
if ($prev eq '%') |
|
196
|
1 |
107 |
if ($$self{'brace_depth'} and $char eq '}') |
|
201
|
9 |
98 |
if ($$self{'brace_depth'} or $char =~ /\s/o) |
|
205
|
1 |
97 |
if ($char eq '{') |
|
210
|
6 |
91 |
if ($char eq '%') |
|
214
|
0 |
91 |
if ($char eq '\\') |
|
231
|
0 |
6 |
if ($$self{'options'}{'debug'}) |
|
240
|
0 |
70 |
if not defined $current or length $current == 0 |
|
244
|
16 |
54 |
unless defined $$output |
|
246
|
15 |
55 |
if (defined(my $parse = $self->parse_character($current, $previous))) |
|
251
|
7 |
48 |
if ($current eq '(') |
|
255
|
6 |
1 |
if ($argc == 0) |
|
264
|
0 |
1 |
if ($$output ne '') { } |
|
274
|
4 |
44 |
if ($current eq ',') |
|
275
|
0 |
4 |
if ($argc == 0) |
|
285
|
6 |
38 |
if ($current eq ')' or $current eq ']') |
|
294
|
0 |
38 |
if ($current eq '[') |
|
297
|
0 |
0 |
if ($self->peek eq ']') |
|
310
|
0 |
6 |
if ($$self{'options'}{'debug'}) |
|
318
|
0 |
6 |
unless (defined($func_info = $$self{'functions'}{$func_name})) |
|
330
|
0 |
6 |
if (ref $$func_info[1] eq 'ARRAY') { } |
|
336
|
0 |
3 |
if ($$func_info[1] != -1 and $min_arg > $argc || $max_arg < $argc) |
|
339
|
0 |
0 |
if ($min_arg == $max_arg) { } |
|
340
|
0 |
0 |
$min_arg == 1 ? : |
|
350
|
1 |
5 |
if ($flags & 1) |
|
354
|
0 |
6 |
if ($$self{'options'}{'debug'}) |