Branch Coverage

blib/lib/IO/Handle.pm

Criterion	Covered	Total	%
branch	19	110	17.2

line	true	false	branch
313	0	90	if (@_ != 1)
318	0	0	if ($] > "5.013" and $class eq "IO::File" and not $INC{'IO/File.pm'})
331	0	3	unless @_ == 3
334	0	3	unless fdopen($io, @_)
354	0	8	unless $mode =~ /^\+?(<|>>?)$/ or $mode =~ s/^r(\+?)$/$1/ or $mode =~ s/^a(\+?)$/$1>>/
363	0	10	unless @_ == 3
367	7	3	if (ref $fd and "$fd" =~ /GLOB\(/o) { }
	3	0	elsif ($fd =~ /^\d+$/) { }
377	10	0	open($io, _open_mode_string($mode) . '&' . $fd) ? :
382	0	32	unless @_ == 1
396	0	0	unless @_ == 1
401	0	10	unless @_ == 1
406	0	8200	unless @_ == 1
411	0	2	unless @_ == 1
416	0	16	unless @_
422	0	0	unless @_ >= 2
428	0	0	unless @_
435	0	0	unless @_ == 2
440	0	1	unless @_ == 3 or @_ == 4
445	0	0	unless @_ == 3 or @_ == 4
450	0	0	unless @_ >= 2 and @_ <= 4
452	0	0	unless defined $_[2]
457	0	0	unless @_ >= 2 and @_ <= 4
458	0	0	if (defined $_[2]) { }
466	0	0	unless @_ == 1
477	67	0	@_ > 1 ? :
482	0	0	if ref $_[0]
485	0	0	if @_ > 1
490	0	0	if ref $_[0]
493	0	0	if @_ > 1
498	0	0	if ref $_[0]
501	0	0	if @_ > 1
507	12	0	if ref $_[0]
509	0	12	if @_ > 1
515	0	0	if ref $_[0]
517	0	0	if @_ > 1
523	0	0	if ref $_[0]
525	0	0	if @_ > 1
531	0	0	if ref $_[0]
533	0	0	if @_ > 1
539	0	0	if ref $_[0]
541	0	0	if @_ > 1
547	0	0	if ref $_[0]
549	0	0	if @_ > 1
554	0	0	if ref $_[0]
557	0	0	if @_ > 1
562	0	0	if ref $_[0]
565	0	0	if @_ > 1
579	0	0	unless @_ < 3
580	0	0	if (@_ == 2) { }
591	0	0	unless @_ == 3
597	0	0	unless @_ == 3
612	6	0	$name =~ /^(SEEK_(SET|CUR|END)|_IO[FLN]BF)$/ && defined &{$name;} ? :
621	0	0	if ref $io
623	0	0	if (ref $io) { }