Branch Coverage

blib/lib/WWW/Slides/Client/TCP.pm

Criterion	Covered	Total	%
branch	5	6	83.3

line	true	false	branch
25	6	0	unless exists $$args{'host'}
27	2	4	unless exists $$args{'port'}
30	2	2	unless my $sock = 'IO::Socket::INET'->new('PeerAddr', $$args{'host'}, 'PeerPort', $$args{'port'})