Branch Coverage

blib/lib/Erlang/Port.pm

Criterion	Covered	Total	%
branch	0	92	0.0

line	true	false	branch
73	0	0	if (my $out = $$this{'log'})
107	0	0	if $out
110	0	0	if $out
114	0	0	if $out
132	0	0	unless (defined $ret)
134	0	0	if $out
137	0	0	unless ($ret)
139	0	0	if $out
142	0	0	if $out
157	0	0	if $out
158	0	0	unless ($data =~ s/^$VERSION_MAGIC//)
160	0	0	if $out
167	0	0	if ($data =~ s/^$NIL_EXT//) { }
	0	0	elsif ($data =~ s/^$SMALL_INTEGER_EXT(.)//s) { }
	0	0	elsif ($data =~ s/^$INTEGER_EXT(.{4})//s) { }
	0	0	elsif ($data =~ s/^$FLOAT_EXT//s) { }
	0	0	elsif ($data =~ s/^$STRING_EXT(.{2})//s) { }
	0	0	elsif ($data =~ s/^$ATOM_EXT(.{2})//s) { }
	0	0	elsif ($data =~ s/^$BINARY_EXT(.{4})//s) { }
	0	0	elsif ($data =~ s/^$LIST_EXT(.{4})//s) { }
	0	0	elsif ($data =~ s/^$SMALL_TUPLE_EXT(.)//s) { }
	0	0	elsif ($data =~ s/^$LARGE_TUPLE_EXT(....)//s) { }
	0	0	elsif ($data =~ s/^$PID_EXT//s) { }
245	0	0	if $out
252	0	0	unless (UNIVERSAL::isa($data, 'Erlang::Tuple'))
260	0	0	if (not UNIVERSAL::isa($item, 'Erlang::Tuple') or @$item != 2)
266	0	0	unless (defined $key)
273	0	0	if ($hash and @$list)
289	0	0	if (defined $obj and not ref $obj) { }
	0	0	elsif ($obj and ref $obj eq 'ARRAY' and @$obj == 0) { }
	0	0	elsif (ref $obj and UNIVERSAL::isa($obj, 'Erlang::Atom')) { }
	0	0	elsif (ref $obj and UNIVERSAL::isa($obj, 'Erlang::Binary')) { }
384	0	0	if (UNIVERSAL::isa($obj, 'Erlang::Atom')) { }
	0	0	elsif (UNIVERSAL::isa($obj, 'Erlang::Binary')) { }
	0	0	elsif (UNIVERSAL::isa($obj, 'Erlang::Pid')) { }
	0	0	elsif (UNIVERSAL::isa($obj, 'ARRAY')) { }
	0	0	elsif (UNIVERSAL::isa($obj, 'HASH')) { }
	0	0	elsif (not ref $obj) { }
396	0	0	if (UNIVERSAL::isa($obj, 'Erlang::Tuple')) { }
	0	0	elsif (@$obj == 0) { }
399	0	0	if ($n < 256) { }
425	0	0	if (not defined $obj) { }
	0	0	elsif ($obj =~ /^-?\d+$/ and $obj eq unpack('N', pack('N', $obj))) { }
	0	0	elsif ($obj =~ /^-?\d+(\.\d+)?(e[-+]?\d+)$/) { }
430	0	0	if ($obj >= 0 and $obj <= 255) { }
446	0	0	if (my $out = $$this{'log'})