File Coverage

blib/lib/IO/FD/DWIM.pm

Criterion	Covered	Total	%
statement	16	37	43.2
branch	4	50	8.0
condition			n/a
subroutine	8	29	27.5
pod	0	25	0.0
total	28	141	19.8

package IO::FD::DWIM;
use strict;
use warnings;

use IO::FD;
use Export::These  qw<

	socket
	socketpair
	shutdown
	bind
	listen
	accept
	connect
	getsockopt
	setsockopt
 	getpeername
	getsockname

	sysopen
	sysseek

	pipe

	close
	recv
	send

	sysread
	syswrite

	stat
	lstat



	fcntl
	ioctl

	readline
	fileno
>;



#SOCKETS
sub socket :prototype($$$$)
	{ref($_[0]) ? &CORE::socket : &IO::FD::socket; }

sub socketpair:prototype($$$$$)
	{ref($_[0]) ? &CORE::socketpair : &IO::FD::socketpair; }

sub shutdown:prototype($$)
	{ref($_[0]) ? &CORE::shutdown : &IO::FD::shutdown; }

sub bind:prototype($$)
	{ref($_[0]) ? &CORE::bind : &IO::FD::bind; }

sub listen:prototype($$)
	{ref($_[0]) ? &CORE::listen : &IO::FD::listen; }

sub accept:prototype($$)
	{ref($_[0]) ? &CORE::accept : &IO::FD::accept; }

sub connect:prototype($$)
	{ref($_[0]) ? &CORE::connect : &IO::FD::connect; }

sub getsockopt:prototype($$$)
	{ref($_[0]) ? &CORE::getsockopt : &IO::FD::getsockopt; }

sub setsockopt:prototype($$$$)
	{ref($_[0]) ? &CORE::setsockopt : &IO::FD::setsockopt; }

sub getpeername:prototype($)
	{ref($_[0]) ? &CORE::getpeername : &IO::FD::getpeername; }

sub getsockname:prototype($)
	{ref($_[0]) ? &CORE::getsockname : &IO::FD::getsockname; }

#FILES

sub sysopen:prototype($$$@)
	{ref($_[0]) ? &CORE::sysopen : &IO::FD::sysopen; }

sub sysseek:prototype($$$)
	{ref($_[0]) ? &CORE::sysseek : &IO::FD::sysseek; }

#PIPE

sub pipe:prototype($$)
	{ref($_[0]) ? &CORE::pipe : &IO::FD::pipe; }



#COMMON

sub close($)
	{ref($_[0]) ? &CORE::close : &IO::FD::close; }

sub recv:prototype($$$$)
	{ref($_[0]) ? &CORE::recv : &IO::FD::recv; }

sub send:prototype($$$@)
	{ref($_[0]) ? &CORE::send : &IO::FD::send; }


sub sysread:prototype($\$$@)
	{ref($_[0]) ? &CORE::sysread : &IO::FD::sysread; }

sub syswrite:prototype($$@)
	{ref($_[0]) ? &CORE::syswrite : &IO::FD::syswrite; }


sub stat($)
	{ref($_[0]) ? stat $_[0] : &IO::FD::stat; }

sub lstat($)
	{ref($_[0]) ? lstat $_[0] : &IO::FD::lstat; }

sub fcntl:prototype($$$)
	{ref($_[0]) ? &CORE::fcntl : &IO::FD::fcntl; }

sub ioctl:prototype($$$)
	{ref($_[0]) ? &CORE::ioctl : &IO::FD::ioctl; }

sub readline($)
	{ref($_[0]) ? &CORE::readline : &IO::FD::readline; }

sub fileno :prototype($) {
	ref($_[0])
		?fileno $_[0]
		: $_[0];
}
1;
__END__