view release on metacpan or  search on metacpan

lib/Carrot/Meta/Greenhouse/Fatal_Syscalls.pm  view on Meta::CPAN

sub read
# /type method
# /effect ""
# //parameters
#	handle
# //returns
#	?
{
	return(CORE::read($_[SPX_1ST_ARGUMENT],
		$_[SPX_2ND_ARGUMENT],
		$_[SPX_3RD_ARGUMENT]) //
		die("read: $OS_ERROR"));
}

sub truncate
# /type method
# /effect ""
# //parameters
#	handle
# //returns
#	?
{
	return(CORE::truncate($_[SPX_1ST_ARGUMENT],
		$_[SPX_2ND_ARGUMENT]) //
		die("truncate: $OS_ERROR"));
}

sub seek
# /type method
# /effect ""
# //parameters
#	handle
# //returns
#	?
{
	return(CORE::seek($_[SPX_1ST_ARGUMENT],
		$_[SPX_2ND_ARGUMENT],
		$_[SPX_3RD_ARGUMENT]) ||
		die("seek: $OS_ERROR"));
}

sub close
# /type method
# /effect ""
# //parameters
#	handle
# //returns
#	?
{
	return(CORE::close($_[SPX_1ST_ARGUMENT]) ||
		die("close: $OS_ERROR"));
}

sub stat
# /type method
# /effect ""
# //parameters
#	handle
# //returns
{
	my $rv = [CORE::stat($_[SPX_1ST_ARGUMENT])];
	unless (@$rv)
	{
		die("stat: $OS_ERROR");
	}
	return($rv);
}

sub lstat
# /type method
# /effect ""
# //parameters
#	handle
# //returns
#	?
{
	my $rv = [CORE::lstat($_[SPX_1ST_ARGUMENT])];
	unless (@$rv)
	{
		die("lstat: $OS_ERROR");
	}
	return($rv);
}

sub print
# /type method
# /effect ""
# //parameters
#	handle
# //returns
#	?
{
	return((CORE::print {$_[SPX_1ST_ARGUMENT]} $_[SPX_2ND_ARGUMENT]) ||
		die("print: $OS_ERROR"));
}

sub print2
# /type method
# /effect ""
# //parameters
#	handle
# //returns
#	?
{
	return((CORE::print {$_[SPX_1ST_ARGUMENT]}
		$_[SPX_2ND_ARGUMENT],
		$_[SPX_3RD_ARGUMENT]) ||
		die("print: $OS_ERROR"));
}

sub opendir
# /type method
# /effect ""
# //parameters
#	handle
#	name
# //returns
#	?
{
	return(CORE::opendir($_[SPX_1ST_ARGUMENT], $_[SPX_2ND_ARGUMENT]) ||
		die("opendir: $OS_ERROR"));
}

sub readdir
# /type method
# /effect ""
# //parameters
#	handle
# //returns
#	?
{
	return([CORE::readdir($_[SPX_1ST_ARGUMENT])] ||
		die("readdir: $OS_ERROR"));
}

sub closedir
# /type method