| line |
true |
false |
branch |
|
55
|
0 |
1284 |
unless my $self = $class->SUPER::__new($content, %arg)
|
|
59
|
1 |
1283 |
if defined $arg{'ordinal'}
|
|
82
|
82 |
176 |
if exists $self->{'perl_version_introduced'}
|
|
88
|
1 |
149 |
if $main and $content =~ / \A \\ N \{ /msx and not $main->interpolates
|
|
90
|
1 |
174 |
if $content =~ / \A \\ o /msx
|
|
92
|
1 |
173 |
if $content =~ / \A \\ N [{] U [+] /msx
|
|
94
|
1 |
172 |
if $content =~ / \A \\ x [{] /msx
|
|
96
|
1 |
171 |
if $content =~ / \A \\ N /msx
|
|
135
|
82 |
145 |
if exists $self->{'perl_version_removed'}
|
|
138
|
11 |
134 |
($code = $removed{$self->content}) ? :
|
|
210
|
105 |
2730 |
if ($tokenizer->cookie('])')) { }
|
|
214
|
13 |
92 |
if $regex_set_operator{$character}
|
|
223
|
27 |
65 |
$tokenizer->cookie(']') ? :
|
|
|
33 |
59 |
if $accept = $tokenizer->find_regexp($tokenizer->cookie("]") ? qr/ \A [ \t] /msx : $white_space_re)
|
|
231
|
0 |
59 |
if $accept = _escaped($tokenizer, $character)
|
|
234
|
51 |
8 |
if $regex_pass_on{$character}
|
|
240
|
8 |
0 |
$tokenizer->cookie(']') ? :
|
|
253
|
178 |
2552 |
if (my $class = $double_agent{$character})
|
|
254
|
23 |
155 |
$tokenizer->cookie(']') ? :
|
|
265
|
269 |
2283 |
if ($heed_x and $tokenizer->modifier('x*') and not $tokenizer->cookie(']')) { }
|
|
|
10 |
2273 |
elsif ($heed_x and $tokenizer->modifier('xx') and $tokenizer->cookie(']')) { }
|
|
271
|
97 |
172 |
if $accept = $tokenizer->find_regexp($white_space_re)
|
|
274
|
8 |
164 |
if $accept = $tokenizer->find_regexp(qr/ \A \# [^\n]* (?: \n | \z) /msx)
|
|
284
|
3 |
7 |
if $accept = $tokenizer->find_regexp(qr/ \A [ \t] /msx)
|
|
291
|
55 |
2218 |
if $character eq "#" or $character =~ / \A \s \z /msx
|
|
296
|
77 |
2312 |
if $accept = _escaped($tokenizer, $character)
|
|
300
|
1079 |
1233 |
unless $extra_ordinary{$character}
|
|
385
|
2144 |
304 |
unless $character eq "\\"
|
|
388
|
8 |
296 |
if (my $accept = $tokenizer->find_regexp(qr/ \A \\ ( [ox] ) [{] ( [^}]* ) [}] /msx))
|
|
393
|
3 |
5 |
if $code = $special{$match}
|
|
400
|
3 |
2 |
unless $value =~ / $invalid /gmsx
|
|
410
|
1 |
1 |
if $tokenizer->strict
|
|
424
|
69 |
227 |
if (my $accept = $tokenizer->find_regexp(qr" \A \\ (?:
|
|
440
|
6 |
63 |
if $code = $special{$match}
|
|
544
|
1 |
16 |
if exists $self->{'ordinal'}
|
|
554
|
8 |
8 |
unless $content =~ / \A \\ /msx
|
|
556
|
2 |
6 |
if exists $escapes{$content}
|
|
560
|
1 |
5 |
if $octal{$indicator}
|
|
562
|
3 |
2 |
if ($indicator eq "x")
|
|
563
|
2 |
1 |
if $content =~ / \A \\ x \{ ( [[:xdigit:]]* ) /msx
|
|
565
|
1 |
0 |
if $content =~ / \A \\ x ( [[:xdigit:]]{0,2} ) \z /msx
|
|
570
|
0 |
2 |
if ($indicator eq "o")
|
|
571
|
0 |
0 |
if $content =~ / \A \\ o [{] ( [01234567]* ) \z /msx
|
|
576
|
2 |
0 |
if ($indicator eq "N")
|
|
577
|
1 |
1 |
if $content =~ / \A \\ N \{ U [+] ( [[:xdigit:]]+ ) \} \z /msx
|
|
579
|
1 |
0 |
_have_charnames_vianame() ? :
|
|
|
1 |
0 |
if $content =~ / \A \\ N [{] ( .+ ) [}] \z /msx
|
|
601
|
0 |
1 |
if defined $have_charnames_vianame
|
|
604
|
1 |
0 |
'charnames'->can('vianame') ? :
|
|
614
|
0 |
1 |
unless "{" eq $self->content and $prev = $self->sprevious_sibling and $prev->isa("PPIx::Regexp::Token::Literal")
|