line |
true |
false |
branch |
112
|
3 |
151 |
if ($opts{'-comment'}) |
119
|
13 |
141 |
if ($opts{'-embedded'} or defined $opts{'-opendelim'}) |
127
|
6 |
148 |
if ($opts{'-variable'}) |
136
|
9 |
145 |
if ($opts{'-macro'}) |
145
|
10 |
144 |
if ($opts{'-script'}) |
154
|
2 |
152 |
if ($opts{'-file'}) |
162
|
1 |
152 |
if %opts |
203
|
0 |
766 |
unless @{$self->context;} |
210
|
0 |
527 |
unless $type == $context->type |
224
|
14 |
137 |
if (@{$self->context;}) |
226
|
14 |
0 |
$context ? : |
335
|
3 |
38 |
unless $input =~ / [\t ]* ( $Text::MacroScript::NAME_RE ) [\t ]* \[ /x |
344
|
1 |
36 |
unless @args == 1 |
359
|
6 |
18 |
unless $$input_ref =~ / [\t ]* ( $Text::MacroScript::NAME_RE ) \s* /x |
388
|
5 |
87 |
unless $input =~ / [\t ]* ( $Text::MacroScript::NAME_RE ) [\t ]* /x |
394
|
60 |
27 |
if ($input =~ /^ \[ /x) { } |
401
|
0 |
58 |
unless @args == 1 |
437
|
2 |
12 |
unless $input =~ / [\t ]* \[ /x |
445
|
0 |
12 |
unless @args == 1 |
455
|
0 |
9 |
unless @args == 1 |
457
|
5 |
4 |
if ($case_arg) |
481
|
2 |
8 |
unless $input =~ / [\t ]* \[ /x |
489
|
0 |
8 |
unless @args == 1 |
553
|
0 |
354 |
unless my $func = $self->actions->{$match} |
562
|
14 |
97 |
unless $arg < scalar @{$self->args;} |
589
|
58 |
65 |
if ($self->in_embedded) { } |
591
|
39 |
19 |
if ($input =~ /\Q$closedelim\E/) { } |
603
|
39 |
26 |
if ($input =~ /\Q$opendelim\E/) { } |
621
|
106 |
450 |
if defined $file |
622
|
106 |
450 |
if $line_nr |
624
|
52 |
504 |
if ($self->embedded) { } |
640
|
673 |
642 |
if ($input =~ / $self->{'regexp'} /x) { } |
661
|
329 |
8 |
if ($input =~ /
(.*?)
(?| (?> \\ ( [\[\]\|] ) (?{ \&Text::MacroScript::_parse_args_escape; }) )
| (?> ( \[ ) (?{ \&Text::MacroScript::_parse_args_open; }) )
| (?> ( \| ) (?{ \&Text::MacroScript::_parse_args_separator; }) )
| (?> ( \] ) (?{ \&Text::MacroScript::_parse_args_close; }) )
)
/sx) { } |
674
|
3 |
5 |
unless @{$context->args;} |
681
|
199 |
16 |
if ($context->open_parens == 0) |
683
|
109 |
74 |
if $context->eat_blanks |
691
|
5 |
0 |
unless @{$context->args;} |
697
|
13 |
7 |
unless @{$context->args;} |
704
|
43 |
42 |
unless @{$context->args;} |
705
|
74 |
11 |
if ($context->open_parens == 1) { } |
716
|
135 |
84 |
unless @{$context->args;} |
717
|
199 |
20 |
if ($context->open_parens == 1) { } |
731
|
34 |
53 |
unless @{$context->args;} |
733
|
26 |
61 |
if ($input =~ /$end_text_re/mx) { } |
782
|
224 |
19 |
if (not $@) { } |
|
5 |
14 |
elsif (not $ignore_errors) { } |
805
|
11 |
10 |
if (exists $self->variables->{$name}) |
857
|
140 |
123 |
if ($self->is_script->{$name}) { } |
875
|
17 |
14 |
if (exists $self->macros->{$name}) |
893
|
48 |
48 |
unless ($namesonly) |
894
|
8 |
40 |
if ($body =~ /\n/) { } |
913
|
48 |
48 |
if ($output_ref) { } |
931
|
8 |
8 |
wantarray ? : |
933
|
8 |
8 |
if wantarray |
942
|
64 |
32 |
if !!$self->is_script->{$name} == !!$is_script |
945
|
16 |
16 |
wantarray ? : |
947
|
16 |
16 |
if wantarray |
990
|
1 |
35 |
unless $file |
993
|
4 |
31 |
unless open my $fh, $file |
998
|
8 |
23 |
if (not defined $output_ref) { } |
|
1 |
22 |
elsif (ref $output_ref eq 'SCALAR') { } |
|
17 |
5 |
elsif (ref $output_ref eq 'ARRAY') { } |
|
5 |
0 |
elsif (ref $output_ref eq 'GLOB') { } |
1019
|
45 |
50 |
if $line ne "" |
1022
|
0 |
26 |
unless close $fh |
1030
|
17 |
7 |
wantarray ? : |
1032
|
16 |
2 |
if wantarray |
1066
|
39 |
12 |
if (!!$is_script == !!$self->is_script->{$name}) |
1076
|
2 |
14 |
if $self->comment |
1107
|
4 |
15 |
if ($which eq '-variable') { } |
|
3 |
12 |
elsif ($which eq '-macro') { } |
|
11 |
1 |
elsif ($which eq '-script') { } |
1124
|
4 |
12 |
if ($which eq '-variable') { } |
|
4 |
8 |
elsif ($which eq '-macro') { } |
|
5 |
3 |
elsif ($which eq '-script') { } |
1142
|
2 |
10 |
if ($which eq '-variable') { } |
|
2 |
8 |
elsif ($which eq '-macro') { } |
|
3 |
5 |
elsif ($which eq '-script') { } |
1160
|
8 |
19 |
if ($which eq '-variable') { } |
|
8 |
11 |
elsif ($which eq '-macro') { } |
|
8 |
3 |
elsif ($which eq '-script') { } |