File Coverage

blib/lib/IO/Vectored.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	3	4	75.0
condition	3	6	50.0
subroutine	5	5	100.0
pod	0	3	0.0
total	26	33	78.7

package IO::Vectored;

use strict;

use Carp;

our $VERSION = '0.110';

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(sysreadv syswritev);

require XSLoader;
XSLoader::load('IO::Vectored', $VERSION);


sub sysreadv(*@) {
  my $fh = shift;

  my $fileno = fileno($fh);
  croak("closed or invalid file-handle passed to sysreadv") if !defined $fileno || $fileno < 0;

  return _backend($fileno, 0, @_);
}

sub syswritev(*@) {
  my $fh = shift;

  my $fileno = fileno($fh);
  croak("closed or invalid file-handle passed to syswritev") if !defined $fileno || $fileno < 0;

  return _backend($fileno, 1, @_);
}

sub IOV_MAX() {
  return _get_iov_max();
}

1;



__END__