| line |
true |
false |
branch |
|
19
|
2 |
4 |
if (@_ == 1) { } |
|
|
2 |
2 |
elsif (@_ > 1) { } |
|
22
|
2 |
0 |
if blessed $item and $item->isa('IRC::Server::Tree') |
|
25
|
0 |
0 |
if ref $item eq 'ARRAY' |
|
36
|
2 |
0 |
$opts{'tree'} ? : |
|
68
|
2 |
22 |
if (++$$self{'seen'}{$name} > 1) |
|
79
|
1 |
10 |
if $$self{'seen'}{$peer} |
|
87
|
0 |
9 |
unless $$self{'memoize'} |
|
89
|
3 |
6 |
if (ref $$self{'seen'}{$peer} eq 'ARRAY') |
|
99
|
0 |
3 |
unless defined $peer |
|
102
|
0 |
3 |
if ($arrayref) |
|
103
|
0 |
0 |
unless ref $arrayref eq 'ARRAY' or blessed $arrayref and $arrayref->isa('IRC::Server::Tree') |
|
110
|
0 |
3 |
if ($self->have_peer($peer)) |
|
116
|
0 |
3 |
unless $self->tree->add_node_to_top($peer, $arrayref) |
|
119
|
0 |
3 |
if $arrayref |
|
132
|
0 |
6 |
unless defined $parent_name and defined $new_name |
|
135
|
2 |
4 |
if ($arrayref) |
|
136
|
0 |
1 |
unless ref $arrayref eq 'ARRAY' or blessed $arrayref and $arrayref->isa('IRC::Server::Tree') |
|
143
|
0 |
6 |
if ($self->have_peer($new_name)) |
|
149
|
0 |
6 |
unless $self->tree->add_node_to_name($parent_name, $new_name, $arrayref) |
|
151
|
2 |
4 |
if $arrayref |
|
159
|
0 |
2 |
unless defined $peer |
|
163
|
0 |
2 |
unless $path |
|
172
|
0 |
1 |
unless defined $peer |
|
181
|
1 |
0 |
if ($names and @$names) |
|
191
|
0 |
1 |
unless defined $peer |
|
197
|
0 |
1 |
unless $self->tree->names_beneath($splitref) |
|
207
|
0 |
9 |
unless defined $peer |
|
210
|
3 |
6 |
if (my $routed = $self->_have_route_for_peer($peer)) |
|
219
|
1 |
5 |
unless ref $index_route eq 'ARRAY' and scalar @$index_route |
|
222
|
0 |
5 |
unless ref $named_hops eq 'ARRAY' and scalar @$named_hops |
|
224
|
5 |
0 |
if $$self{'memoize'} |