Branch Coverage

lib/AnyEvent/Memcached/Buckets.pm
Criterion Covered Total %
branch 15 26 57.6


line true false branch
19 0 2 unless my $list = shift()
20 0 2 unless ref $list eq 'ARRAY'
28 0 0 unless @{$self->{'servers'};}
34 0 2 unless @{$self->{'servers'};}
35 0 2 if ($self->{'buckets'}) { }
45 2 8 if (ref $v eq 'ARRAY') { }
55 2 8 if (exists $self->{'peers'}{$peer}) { }
74 0 82 unless @{$self->{'servers'};}
81 0 41 unless @{$self->{'servers'};}
82 0 41 unless my $peer = $self->{'peers'}{$srv}
86 0 41 unless my $nsrv = $self->{'srv'}[$next]
87 0 41 if ref $nsrv
89 5 36 if ((my(@bucks) = @{$self->{'peers'}{$nsrv}{'bucks'};}) > 1) { }