| line |
true |
false |
branch |
|
22
|
0 |
0 |
if keys %DESCRIPTION_FOR |
|
28
|
0 |
0 |
unless my($found) = $perldoc->grand_search_init([$builtin_pod]) |
|
30
|
0 |
0 |
unless open my $fh, '<', $found |
|
33
|
0 |
0 |
unless close $fh |
|
38
|
0 |
0 |
if ($line =~ /\A=item\s*(\S+)/mx) |
|
40
|
0 |
0 |
if ($predicate =~ m[.*/\d+]mx) |
|
42
|
0 |
0 |
if (length $predicate > length $LONGEST_PREDICATE) |
|
46
|
0 |
0 |
if ($line =~ /\A=(?:item|back)/mx) |
|
77
|
2 |
1 |
unless ($o->isa('AI::Prolog::ChoicePoint')) |
|
97
|
0 |
0 |
if ($t2 eq 'AI::Prolog::Term'->CUT) { } |
|
103
|
0 |
0 |
if ($i++ == 0) { } |
|
338
|
0 |
13 |
unless my($msg) = $e =~ / \A
(.+) # 'Undefined subroutine'
(?<=\s) # ' '
\S* # &main::
---/mx |