File Coverage

blib/lib/IO/Framed/X/ReadError.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	15	15	100.0

package IO::Framed::X::ReadError;

=encoding utf-8

=head1 NAME

IO::Framed::X::ReadError

=head1 SYNOPSIS

    use Try::Tiny;
    use IO::Framed::Read;

    my $iof = IO::Framed::Read->new( $some_socket );

    try { $iof->read(20) }
    catch {
        $_->get('OS_ERROR');        #gets $!
        $_->errno_is('EAGAIN');     #should always be false
    };

=head1 DESCRIPTION

Thrown on read errors. Subclasses L.

=cut

use strict;
use warnings;

use parent qw( IO::Framed::X::ErrnoBase );

sub _new {
    my ($class, $err) = @_;

    return $class->SUPER::_new( "Read error: $err", OS_ERROR => $err );
}

1;