line |
!l |
l&&!r |
l&&r |
condition |
128
|
732 |
7 |
0 |
exists $args{'default_modifiers'} and "ARRAY" ne ref $args{'default_modifiers'} |
321
|
5801 |
4 |
317 |
$char eq "\\" and $finish ne "\\" |
|
5522 |
282 |
1 |
$bracketed and $char eq $start |
348
|
489 |
0 |
3758 |
defined $-[$inx] and defined $+[$inx] |
849
|
88 |
9 |
5 |
$loc->{'tab_width'} > 1 and $content =~ / \t /msx |
887
|
382 |
8 |
138 |
$type and not $next_white |
|
390 |
136 |
2 |
$type and not $next_white and $delim_start =~ / \A \w \z /msx |
1124
|
16 |
0 |
2 |
$character eq "\\" and $self->{'cursor_limit'} - $self->{'cursor_curr'} > 1 |
1141
|
4 |
0 |
5 |
$character eq "\\" and defined(my $next = $self->peek(1)) |
line |
l |
!l&&r |
!l&&!r |
condition |
295
|
49 |
534 |
0 |
(my $bracketed = $self->close_bracket($start)) || $start |
385
|
4097 |
17 |
0 |
caller eq "PPIx::Regexp::Tokenizer" or $self->{'cursor_curr'} > $self->{'cursor_orig'} |
567
|
0 |
0 |
0 |
ref $self->{'prior_significant_token'} || $self->{'prior_significant_token'} |
819
|
93 |
12 |
0 |
$self->{'_location'} ||= do {
my(%loc) = ("location", $self->{'location'});
if (__instance($self->{'source'}, "PPI::Element")) {
$loc{'location'} ||= $self->{'source'}->location;
if (my $doc = $self->{'source'}->document) {
$loc{'tab_width'} = $doc->tab_width;
};
};
$loc{'tab_width'} ||= 1;
\%loc
} |
824
|
0 |
11 |
0 |
$loc{'location'} ||= $self->{'source'}->location |
884
|
146 |
382 |
6 |
$type or $delim_start =~ m[ \A [/?] \z ]msx |
1112
|
27 |
0 |
0 |
'PPIx::Regexp::Tokenizer'->can('__PPIX_TOKEN_FALLBACK__' . $mode) || 'PPIx::Regexp::Tokenizer'->can('__PPIX_TOKEN_FALLBACK__regexp') || confess("Programming error - unable to find fallback for $mode") |
1144
|
5 |
0 |
0 |
$self->interpolates or $next eq "'" |
|
5 |
0 |
0 |
$self->interpolates or $next eq "'" or $next eq "\\" |