File Coverage

blib/lib/Couchbase/Client/Return.pm

Criterion	Covered	Total	%
statement	18	21	85.7
branch	0	2	0.0
condition			n/a
subroutine	6	8	75.0
pod	1	1	100.0
total	25	32	78.1

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 {
    die "GRRR" unless defined $_[0]->[RETIDX_ERRNUM];
    #warn "Checking defined errno";
    $_[0]->[RETIDX_ERRNUM] == COUCHBASE_SUCCESS;
}

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

1;

__END__