view release on metacpan or  search on metacpan

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

10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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;
}