| line |
true |
false |
branch |
|
26
|
0 |
0 |
if $re =~ /^\(\?([ixsm]*)-?[xism]*:(.*)\)$/ |
|
27
|
0 |
0 |
if $re =~ /^\(\?\^([ixsm]*):(.*)\)$/ |
|
58
|
0 |
0 |
if ($spec =~ m[^/]) { } |
|
|
0 |
0 |
elsif ($spec =~ /^"/) { } |
|
60
|
0 |
0 |
unless my($content, $flags) = $spec =~ m[^/(.*)/([i]*)$] |
|
62
|
0 |
0 |
if $flags eq 'i' |
|
66
|
0 |
0 |
unless my($content) = $spec =~ /^"(.*)"$/ |
|
122
|
0 |
0 |
unless $spec =~ s/^(\w+)\s*// |
|
127
|
0 |
0 |
if ($type eq 'line') { } |
|
|
0 |
0 |
elsif ($type eq 'matches') { } |
|
|
0 |
0 |
elsif ($type eq 'match') { } |
|
134
|
0 |
0 |
unless $spec =~ s/^\((\d+)\)\s*// |
|
141
|
0 |
0 |
unless my(undef, $remains, undef, $op, $delim, $lhs, undef, undef, $rhs, undef, $mods) = &extract_quotelike($spec) |
|
144
|
0 |
0 |
if $op eq '' |
|
146
|
0 |
0 |
if ($op eq '"') { } |
|
|
0 |
0 |
elsif ($op eq 's') { } |
|
166
|
0 |
0 |
$groupnum == 0 ? : |
|
|
0 |
0 |
$groupnum == -1 ? : |
|
170
|
0 |
0 |
if ($kind eq 'literal') { } |
|
|
0 |
0 |
elsif ($kind eq 'subst') { } |
|
175
|
0 |
0 |
$global ? : |
|
185
|
0 |
0 |
if ($groupnum == -1) { } |
|
190
|
0 |
0 |
unless my $group = $groups->[$groupnum] |
|
198
|
0 |
0 |
if ($kind eq 'literal') { } |
|
|
0 |
0 |
elsif ($kind eq 'subst') { } |
|
202
|
0 |
0 |
unless $global |
|
203
|
0 |
0 |
if $global |
|
218
|
0 |
0 |
unless $spec =~ s/^(\w+)\s*// |
|
223
|
0 |
0 |
if ($type eq 'line') { } |
|
|
0 |
0 |
elsif ($type eq 'matches') { } |
|
|
0 |
0 |
elsif ($type eq 'match') { } |
|
230
|
0 |
0 |
unless $spec =~ s/^\((\d+)\)\s*// |
|
249
|
0 |
0 |
if (length $spec) |
|
261
|
0 |
0 |
unless %$formathash |
|
263
|
0 |
0 |
$groupnum == 0 ? : |
|
|
0 |
0 |
$groupnum == -1 ? : |
|
277
|
0 |
0 |
if ($groupnum == -1) { } |
|
282
|
0 |
0 |
unless my $group = $groups->[$groupnum] |
|
299
|
0 |
0 |
unless $spec =~ s/^(\w+)\s*// |
|
304
|
0 |
0 |
if ($type eq 'line') { } |
|
|
0 |
0 |
elsif ($type eq 'matches') { } |
|
|
0 |
0 |
elsif ($type eq 'match') { } |
|
311
|
0 |
0 |
unless $spec =~ s/^\((\d+)\)\s*// |
|
327
|
0 |
0 |
if (length $spec) |
|
339
|
0 |
0 |
$groupnum == 0 ? : |
|
|
0 |
0 |
$groupnum == -1 ? : |
|
356
|
0 |
0 |
unless @$taglist |
|
360
|
0 |
0 |
if ($groupnum == -1) { } |
|
365
|
0 |
0 |
unless my $group = $groups->[$groupnum] |
|
382
|
0 |
0 |
unless $spec =~ s/^(\d)// |
|
385
|
0 |
0 |
unless $level >= 0 and $level <= 3 |