File Coverage

blib/lib/Couchbase/Client/Return.pm

Criterion	Covered	Total	%
statement	18	20	90.0
branch			n/a
condition			n/a
subroutine	6	8	75.0
pod	1	1	100.0
total	25	29	86.2

package Couchbase::Client::Return;
use strict;
use warnings;

use Couchbase::Client::IDXConst;
use Couchbase::Client::Errors;

use Class::XSAccessor::Array {
    accessors => {
        cas => RETIDX_CAS,
        value => RETIDX_VALUE,
        errnum => RETIDX_ERRNUM,
        errstr => RETIDX_ERRSTR
    }
};

sub is_ok {
    $_[0]->[RETIDX_ERRNUM] == COUCHBASE_SUCCESS;
}

{
    no strict 'refs';
    foreach my $errsym (@Couchbase::Client::Errors::EXPORT) {
        my $subname = $errsym;
        $subname =~ s/COUCHBASE_//g;
        *{$subname} = sub { $_[0]->errnum == $_[1] };
    }
}

1;

__END__