Branch Coverage

testlib
Criterion Covered Total %
branch 1 8 12.5


line true false branch
24 8 0 if (my $socket = 'IO::Socket::INET'->new('Listen', 5, 'LocalAddr', shift() || '127.0.0.1'))
48 0 0 if (defined wantarray) { }
0 0 elsif (@_) { }
73 0 0 unless open my $handle, $_[0]