File Coverage

blib/lib/Couchbase/Couch/ViewRow.pm

Criterion	Covered	Total	%
statement	9	16	56.2
branch	0	4	0.0
condition	0	3	0.0
subroutine	3	4	75.0
pod	1	1	100.0
total	13	28	46.4

package Couchbase::Couch::ViewRow;
use strict;
use warnings;
use Class::XSAccessor {
    accessors => [ qw(key value id doc _cbo) ]
};

sub save {
    my ($self,%options) = @_;
    my $cbo = $self->{_cbo} || delete $options{Client};
    if (!$cbo) {
        die("Must have client (Either implicit or explicit)");
    }
    if (!$self->{doc}) {
        die("View result does not include doc");
    }
    return $cbo->couch_set($self->{id}, $self->doc);
}

1;

__END__