| line |
true |
false |
branch |
|
90
|
5 |
0 |
if $self->can($attr) |
|
116
|
0 |
3 |
if (my $ref = ref $_[0]) |
|
124
|
51 |
115 |
unless length $token |
|
125
|
0 |
115 |
if defined $tokens[0] and $tokens[0] eq $token |
|
128
|
7 |
108 |
if index($delimiters, $token) >= 0 |
|
129
|
1 |
114 |
if index($token, '#') == 0 |
|
130
|
1 |
114 |
if index($token, '$') == 0 |
|
131
|
2 |
113 |
if index($token, '=') >= 0 |
|
135
|
1 |
114 |
if ($type eq 'comment') |
|
137
|
1 |
0 |
if $token =~ s/(\s*)$// |
|
139
|
0 |
115 |
if ($type eq 'variable' and index($token, '(') == 1) |
|
143
|
115 |
0 |
if defined $$self{'handlers'}{$type} |
|
219
|
2 |
4 |
ref $_[0] ? : |
|
222
|
2 |
4 |
if $handlers{'default'} |
|
225
|
0 |
8 |
unless exists $$self{'handlers'}{$handler} |
|
399
|
10 |
14 |
if $_[0] |
|
402
|
10 |
14 |
if ($syntax ne $old) |
|
403
|
0 |
10 |
unless exists $shell_syntaxes{$syntax} |