| line |
true |
false |
branch |
|
30
|
0 |
0 |
if $re =~ /^\(\?([ixsm]*)-?[xism]*:(.*)\)$/ |
|
31
|
0 |
0 |
if $re =~ /^\(\?\^([ixsm]*):(.*)\)$/ |
|
63
|
0 |
0 |
if ($spec =~ m[^/]) { } |
|
|
0 |
0 |
elsif ($spec =~ /^"/) { } |
|
65
|
0 |
0 |
unless my($content, $flags) = $spec =~ m[^/(.*)/([i]*)$] |
|
67
|
0 |
0 |
if $flags eq 'i' |
|
71
|
0 |
0 |
unless my($content) = $spec =~ /^"(.*)"$/ |
|
94
|
0 |
0 |
unless defined(my $text = $event->{'text'}) |
|
128
|
0 |
0 |
unless $spec =~ s/^(\w+)\s*// |
|
133
|
0 |
0 |
if ($type eq 'line') { } |
|
|
0 |
0 |
elsif ($type eq 'matches') { } |
|
|
0 |
0 |
elsif ($type eq 'match') { } |
|
140
|
0 |
0 |
unless $spec =~ s/^\((\d+)\)\s*// |
|
147
|
0 |
0 |
unless my(undef, $remains, undef, $op, $delim, $lhs, undef, undef, $rhs, undef, $mods) = &extract_quotelike($spec) |
|
150
|
0 |
0 |
if $op eq '' |
|
152
|
0 |
0 |
if ($op eq '"') { } |
|
|
0 |
0 |
elsif ($op eq 's') { } |
|
172
|
0 |
0 |
$groupnum == 0 ? : |
|
|
0 |
0 |
$groupnum == -1 ? : |
|
176
|
0 |
0 |
if ($kind eq 'literal') { } |
|
|
0 |
0 |
elsif ($kind eq 'subst') { } |
|
181
|
0 |
0 |
$global ? : |
|
191
|
0 |
0 |
if ($groupnum == -1) { } |
|
196
|
0 |
0 |
unless my $group = $groups->[$groupnum] |
|
202
|
0 |
0 |
unless ref $event->{'text'} |
|
205
|
0 |
0 |
if ($kind eq 'literal') { } |
|
|
0 |
0 |
elsif ($kind eq 'subst') { } |
|
209
|
0 |
0 |
unless $global |
|
210
|
0 |
0 |
if $global |
|
225
|
0 |
0 |
unless $spec =~ s/^(\w+)\s*// |
|
230
|
0 |
0 |
if ($type eq 'line') { } |
|
|
0 |
0 |
elsif ($type eq 'matches') { } |
|
|
0 |
0 |
elsif ($type eq 'match') { } |
|
237
|
0 |
0 |
unless $spec =~ s/^\((\d+)\)\s*// |
|
256
|
0 |
0 |
if (length $spec) |
|
268
|
0 |
0 |
unless %$formathash |
|
270
|
0 |
0 |
$groupnum == 0 ? : |
|
|
0 |
0 |
$groupnum == -1 ? : |
|
283
|
0 |
0 |
unless ref $str |
|
285
|
0 |
0 |
if ($groupnum == -1) { } |
|
290
|
0 |
0 |
unless my $group = $groups->[$groupnum] |
|
307
|
0 |
0 |
unless $spec =~ s/^(\w+)\s*// |
|
312
|
0 |
0 |
if ($type eq 'line') { } |
|
|
0 |
0 |
elsif ($type eq 'matches') { } |
|
|
0 |
0 |
elsif ($type eq 'match') { } |
|
319
|
0 |
0 |
unless $spec =~ s/^\((\d+)\)\s*// |
|
335
|
0 |
0 |
if (length $spec) |
|
347
|
0 |
0 |
$groupnum == 0 ? : |
|
|
0 |
0 |
$groupnum == -1 ? : |
|
364
|
0 |
0 |
unless @$taglist |
|
367
|
0 |
0 |
unless ref $str |
|
369
|
0 |
0 |
if ($groupnum == -1) { } |
|
374
|
0 |
0 |
unless my $group = $groups->[$groupnum] |
|
391
|
0 |
0 |
unless $spec =~ s/^(\d)// |
|
394
|
0 |
0 |
unless $level >= 0 and $level <= 3 |
|
437
|
0 |
0 |
unless ref $str |