Branch Coverage

blib/lib/POE/Filter/DNS/TCP.pm

Criterion	Covered	Total	%
branch	8	12	66.6

line	true	false	branch
35	2	2	if (defined $$self[1] or defined($$self[1] = _decoder(\$$self[0])))
41	0	2	if length $$self[0] < $$self[1]
49	2	0	if (my $packet = 'Net::DNS::Packet'->new(\$block))
61	2	2	unless length $buf
63	0	2	unless $len
78	0	2	unless eval { do { $packet->isa('Net::DNS::Packet') } }