Branch Coverage

blib/lib/Net/Gnutella/Packet/Pong.pm

Criterion	Covered	Total	%
branch	0	14	0.0

line	true	false	branch
15	0	0	unless $attr =~ /[^A-Z]/
16	0	0	unless exists $$self{'_attr'}{lc $attr}
17	0	0	if @_
53	0	0	if (@_)
54	0	0	if (ref $_[0] eq 'ARRAY') { }
	0	0	elsif ($_[0] =~ /^[\d.]+$/) { }
	0	0	elsif ($_[0] =~ /\D/) { }