File Coverage

blib/lib/RedisDB/Error.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

package RedisDB::Error;

use strict;
use base 'RedisDB::Parser::Error';
our $VERSION = "2.55";
$VERSION = eval $VERSION;

=head1 NAME

RedisDB::Error - Error class for RedisDB

=head1 SYNOPSIS

    sub callback {
        my ($redis, $reply) = @_;
        die "$reply" if ref $reply eq 'RedisDB::Error';
        # do something with reply
    }

=head1 DESCRIPTION

Object of this class maybe passed as argument to callback specified in
I if redis server return error.  In string context object
returns description of the error. This class inherits from
L.

=cut

*new = \&RedisDB::Parser::Error::new;

package RedisDB::Error::EAGAIN;
our @ISA = qw(RedisDB::Error);

package RedisDB::Error::DISCONNECTED;
our @ISA = qw(RedisDB::Error);

package RedisDB::Error::MOVED;
our @ISA = qw(RedisDB::Parser::Error::MOVED RedisDB::Error);

package RedisDB::Error::ASK;
our @ISA = qw(RedisDB::Parser::Error::ASK RedisDB::Error);

1;

__END__