File Coverage

blib/lib/Couchbase/Couch/Design.pm

Criterion	Covered	Total	%
statement	12	26	46.1
branch	0	6	0.0
condition	0	2	0.0
subroutine	4	8	50.0
pod	3	4	75.0
total	19	46	41.3

package Couchbase::Couch::Design;
use strict;
use warnings;
use Couchbase::Client::IDXConst;
use base qw(Couchbase::Couch::HandleInfo);

sub view_path {
    my ($design_path,$view_name) = @_;
    return sprintf("%s/_view/%s", $design_path, $view_name);
}

sub get_view_path {
    my ($self,$view) = @_;
    my $v = ($self->value||{})->{views}->{$view};
    if ($v) {
        return view_path($self->path, $view);
    }
}

sub get_view_iterator {
    my ($self,$view,%options) = @_;
    my $vpath = $self->get_view_path($view) or die
        "no such view $view";
    $self->parent->couch_view_iterator($vpath,%options);
}

sub get_view_results {
    my ($self,$view,%options) = @_;
    my $vpath = $self->get_view_path($view);
    if (!$vpath) {
        die("No such view '$view'");
    }
    $self->parent->couch_view_slurp($vpath,%options);
}

1;


__END__