| line |
true |
false |
branch |
|
83
|
4 |
19 |
unless defined $name |
|
84
|
2 |
17 |
unless defined $sub |
|
85
|
4 |
13 |
unless ref $sub and &reftype($sub) eq 'CODE' |
|
89
|
1 |
5 |
if $source eq $name |
|
108
|
2 |
16 |
unless defined $name |
|
109
|
1 |
15 |
unless defined $sub |
|
110
|
2 |
13 |
unless ref $sub and &reftype($sub) eq 'CODE' |
|
114
|
12 |
5 |
if $source eq $name |
|
147
|
2 |
33 |
unless (ref $self and $self->isa('Algorithm::SixDegrees')) |
|
151
|
1 |
32 |
unless (defined $mainsource) |
|
155
|
1 |
31 |
unless (defined $start) |
|
159
|
1 |
30 |
unless (defined $end) |
|
173
|
2 |
28 |
unless (exists $self->{'_sources'} and &reftype($self->{'_sources'}) eq 'ARRAY') |
|
180
|
26 |
13 |
if ($mainsource eq $source) { } |
|
189
|
1 |
37 |
unless (ref $self->{'_source_left'} and ref $self->{'_source_left'}{$source} and &reftype($self->{'_source_left'}{$source}{'sub'}) eq 'CODE') |
|
195
|
1 |
35 |
unless (ref $self->{'_source_right'} and ref $self->{'_source_right'}{$source} and &reftype($self->{'_source_right'}{$source}{'sub'}) eq 'CODE') |
|
203
|
2 |
22 |
unless ($source_exists) |
|
207
|
1 |
21 |
if (scalar keys %leftside > 2) |
|
213
|
5 |
16 |
if ($start eq $end) |
|
215
|
3 |
2 |
wantarray ? : |
|
227
|
8 |
8 |
if (defined $altsource) |
|
229
|
0 |
8 |
if (defined $err) |
|
230
|
0 |
8 |
if (defined $id) |
|
231
|
0 |
8 |
if not defined $count or $count == 0 |
|
234
|
0 |
8 |
if (defined $err) |
|
235
|
2 |
6 |
if (defined $id) |
|
237
|
2 |
0 |
wantarray ? : |
|
239
|
2 |
4 |
if not defined $count or $count == 0 |
|
242
|
0 |
4 |
if (defined $err) |
|
243
|
0 |
4 |
if (defined $id) |
|
244
|
0 |
4 |
if not defined $leftcount or $leftcount == 0 |
|
247
|
0 |
4 |
if (defined $err) |
|
248
|
2 |
2 |
if (defined $id) |
|
253
|
0 |
2 |
unless (defined $la and defined $lm and defined $ra and defined $rm) |
|
257
|
2 |
0 |
wantarray ? : |
|
259
|
0 |
2 |
if not defined $rightcount or $rightcount == 0 |
|
269
|
42 |
3 |
if ($leftcount <= $rightcount) { } |
|
270
|
4 |
38 |
if (defined $altsource) { } |
|
276
|
2 |
1 |
if (defined $altsource) { } |
|
282
|
0 |
45 |
if (defined $err) |
|
286
|
7 |
38 |
if (defined $id) |
|
294
|
6 |
27 |
if defined $altsource |
|
295
|
0 |
33 |
unless (defined $match[0]) |
|
303
|
4 |
0 |
if defined $altsource |
|
304
|
0 |
4 |
unless (defined $match[-1]) |
|
309
|
5 |
2 |
wantarray ? : |
|
311
|
3 |
35 |
if ($leftcount == 0 or $rightcount == 0) |
|
317
|
3 |
0 |
wantarray ? : |
|
335
|
0 |
6 |
if defined $err |
|
336
|
0 |
6 |
if defined $id |
|
337
|
0 |
6 |
if not defined $count or $count == 0 |
|
353
|
0 |
75 |
unless &reftype($$self{"_source_$side"}{$fromsource}{'sub'}) eq 'CODE' |
|
354
|
0 |
75 |
unless &reftype($thisside) eq 'HASH' |
|
355
|
0 |
75 |
unless exists $thisside->{$fromsource} |
|
356
|
0 |
75 |
unless &reftype($thatside) eq 'HASH' |
|
357
|
0 |
75 |
unless exists $thatside->{$tosource} |
|
361
|
123 |
79 |
if exists $self->{'_investigated'}{$fromsource}{$id} |
|
364
|
79 |
0 |
&reftype($$self{"_source_$side"}{$fromsource}{'args'}) eq 'ARRAY' ? : |
|
366
|
79 |
0 |
$use_args ? : |
|
367
|
0 |
79 |
if scalar @ids == 1 and not defined $ids[0] |
|
369
|
86 |
52 |
unless (exists $thisside->{$tosource}{$thisid}) |
|
373
|
11 |
127 |
if exists $thatside->{$tosource}{$thisid} |