IO-Handle-Record
view release on metacpan or search on metacpan
'$fds[0] can socktype()';
cmp_deeply t_cat($fds[1]), 'content2', 'reverse: second fd';
cmp_deeply t_cat($fds[2]), 'content1', 'reverse: third fd';
cmp_deeply [map ref, @fds], [qw/IO::Socket::UNIX IO::File IO::File/],
'handle types';
@fds=();
close $c; undef $c;
undef $p->received_fds; # closes received fds
SKIP: {
skip "Peer credentials are supported on Linux only", 1
unless( $^O=~/linux/i );
cmp_deeply [$p->peercred], [$$, $>, ($)=~/(\d+)/)[0]], 'peer credentials';
}
} else {
@to_be_deleted=();
close $p; undef $p;
my @l=$c->read_record;
$c->fds_to_send=[map( {open my($fd), $_; $fd} @l ),
do{open my $fd, '>', '/dev/null'; $fd}];
$c->write_record( \@l );
( run in 0.568 second using v1.01-cache-2.11-cpan-fd5d4e115d8 )