| line |
true |
false |
branch |
|
30
|
60 |
10 |
unless ($want_transitive) |
|
32
|
1 |
59 |
if ($want_path_count) { } |
|
42
|
425 |
12 |
if $want_reflexive |
|
44
|
16457 |
1166 |
unless vec $ai[$iu], $iv, 1 |
|
45
|
231 |
935 |
if ($want_path_count or not defined $di[$iu][$iv]) { } |
|
|
4 |
1858 |
elsif ($multi and ref $di[$iu][$iv] eq 'HASH') { } |
|
46
|
5 |
226 |
$iu == $iv ? : |
|
50
|
741 |
425 |
unless $iu == $iv |
|
60
|
15727 |
2000 |
unless vec $aiu, $iv, 1 |
|
61
|
55 |
1945 |
if ($want_transitive) |
|
63
|
4 |
139 |
if $iw != $iv and vec $aiv, $iw, 1 and not vec($aiu, $iw, 1) |
|
72
|
994 |
951 |
if ($aiu ne $aiuo) |
|
74
|
0 |
994 |
if $iv == $iu |
|
76
|
20 |
1925 |
unless $want_path |
|
80
|
65993 |
28011 |
unless vec $aiv, $iw, 1 |
|
81
|
13 |
27998 |
if ($want_path_count) |
|
82
|
1 |
4 |
if $iu != $iv and $iv != $iw and $iw != $iu |
|
88
|
7141 |
20857 |
if (not defined $d0 or $d1 < $d0) |
|
91
|
7140 |
1 |
if $want_path_vertices |
|
97
|
6 |
60 |
if $want_transitive |
|
100
|
60 |
0 |
if defined $dm |
|
101
|
60 |
0 |
if defined $sm |
|
110
|
1 |
69 |
if exists $opt{'attribute_name'} |
|
112
|
0 |
70 |
if $opt{'distance_matrix'} |
|
114
|
29 |
41 |
if exists $opt{'path'} |
|
120
|
10 |
60 |
if exists $opt{'is_transitive'} |
|
122
|
10 |
60 |
unless defined $want_reflexive |
|
125
|
1 |
69 |
if $want_path_count |
|
135
|
9 |
35769 |
unless exists $tc->[3]{$v} |
|
142
|
6 |
14502 |
unless $tc->has_vertices($u, $v) |
|
143
|
866 |
13636 |
if $u eq $v |
|
148
|
10 |
6 |
if @_ == 1 |
|
151
|
0 |
6 |
unless $tc->has_vertices($u, $v) |
|
162
|
3 |
3004 |
unless $tc->has_vertices($u, $v) |
|
163
|
256 |
2748 |
if $u eq $v |
|
169
|
9 |
371 |
if $u eq $v |
|
170
|
0 |
371 |
unless $tc->has_vertices($u, $v) |
|
176
|
15 |
252 |
unless $tc->is_reachable($u, $v) |
|
177
|
40 |
5 |
wantarray ? : |
|
|
45 |
207 |
if $u eq $v |
|
180
|
0 |
353 |
unless defined($u = $tc->path_successor($u, $v)) |
|
183
|
207 |
0 |
if @v |
|
189
|
0 |
29 |
if $u eq $v |
|
191
|
1 |
28 |
if exists $seen->{$u} |
|
194
|
12 |
16 |
if $tc->[4]->has_edge($u, $v) |