view release on metacpan or  search on metacpan

lib/Net/FSP/Handle.pm  view on Meta::CPAN

use Errno qw/EIO/;

require Net::FSP::Handle::Read;
require Net::FSP::Handle::Write;

my %class_for = (
	'<' => 'Net::FSP::Handle::Read',
	'>' => 'Net::FSP::Handle::Write',
);

sub do_or_fail(&) {    ##no critic prototype
	my $action = shift;
	local $@;
	my $ret;
	eval { $ret = $action->(); };
	if ($@) {
		$! = EIO;
		return;
	}
	return $ret;
}