| line |
true |
false |
branch |
|
178
|
0 |
15 |
if ($INC{'perl5db.pl'}) |
|
191
|
0 |
0 |
if (scalar @args > 1 and scalar @args % 2 == 0 and not ref $args[0]) |
|
209
|
0 |
0 |
defined &main::CUU ? : |
|
221
|
0 |
0 |
if (not $argc or $argc and $argv->[0] =~ /^-h|--help$/) |
|
227
|
0 |
0 |
if (not $mode_diag and $argv->[$i] =~ /^-d|--diag$/) |
|
228
|
0 |
0 |
if (not $verbose and $argv->[$i] =~ /^-v|--verbose$/) |
|
229
|
0 |
0 |
if (not $assert and $argv->[$i] =~ /^-a|--assert$/) |
|
232
|
0 |
0 |
if ($assert) |
|
242
|
0 |
0 |
if defined $_ |
|
252
|
0 |
0 |
if $mode_diag |
|
254
|
0 |
0 |
if $result |
|
255
|
0 |
0 |
$mode_diag ? : |
|
257
|
0 |
0 |
if ($verbose) |
|
259
|
0 |
0 |
$result ? : |
|
260
|
0 |
0 |
$result ? : |
|
263
|
0 |
0 |
if $verbose and $ctx->{'warning'} ne "" |
|
282
|
0 |
0 |
if (not $found_data_token) { } |
|
284
|
0 |
0 |
if /^__(DATA|END)__/ |
|
289
|
0 |
0 |
if /^__(DATA|END)__/ |
|
291
|
0 |
0 |
if /^\s*$/ or /^#/ |
|
293
|
0 |
0 |
unless $re |
|
294
|
0 |
0 |
if $_ ne 0 |
|
298
|
0 |
0 |
if $verbose and $ctx->{'warning'} ne "" |
|
302
|
0 |
0 |
if $mode_diag |
|
304
|
0 |
0 |
$mode_diag ? : |
|
314
|
0 |
0 |
if (Tstregex::tstregex_is_full_match($ctx)) { } |
|
335
|
0 |
0 |
if (Tstregex::tstregex_is_full_match($ctx)) { } |
|
442
|
1 |
114 |
if ($ctx->{'prefix_offset'} > 0 and length $pattern >= $ctx->{'prefix_offset'} + 1) |
|
446
|
1 |
0 |
if ($pat_first_char == $re_delim_char) |
|
455
|
68 |
47 |
if ($pattern =~ /$ctx->{'re_compiled'}/) |
|
471
|
21 |
1 |
if (defined $-[$i]) { } |
|
491
|
35 |
79 |
if ($pattern =~ qr/$step/) |
|
502
|
35 |
12 |
$match_reg ne '' ? : |
|
508
|
34 |
83 |
if $pattern =~ /$match_work/ |
|
514
|
47 |
0 |
scalar @{$ctx->{'steps'};} ? : |
|
517
|
47 |
0 |
if ($remaining_re ne '') { } |
|
523
|
4 |
43 |
if $first_token =~ /^(\\b|\^|\$)$/ |
|
532
|
0 |
47 |
$ctx->{'match_undef'} ? : |
|
544
|
0 |
115 |
$re_compiled eq \'(?^:\\0)' ? : |
|
568
|
0 |
115 |
if not defined $raw or $raw eq "" |
|
584
|
0 |
115 |
if $off < 0 |
|
588
|
0 |
115 |
$options ? : |
|
615
|
0 |
115 |
if not defined $raw or $raw eq "" |
|
621
|
50 |
65 |
if ($raw =~ /^((?:m\s*)?)([^\w\s])(.*)$/s) |
|
642
|
26 |
24 |
if ($open eq "(" and not $prefix) |
|
648
|
1 |
23 |
if (substr($body, -1) eq $expected_close) |
|
654
|
0 |
23 |
if $prefix |
|
671
|
412 |
0 |
if ($opens >= $closes) |
|
675
|
409 |
3 |
if (eval {
do {
qr/$v/
}
}) |
|
678
|
412 |
0 |
if defined $last |
|
721
|
71 |
490 |
if (defined $t and $t =~ /^[\+\*\?]$|^\{\d/ and @groups and not $groups[-1] =~ /^[\(\)\|]$/) { } |