File Coverage

blib/lib/CouchDB/View/Document.pm

Criterion	Covered	Total	%
statement	23	25	92.0
branch	1	2	50.0
condition			n/a
subroutine	9	10	90.0
pod	5	5	100.0
total	38	42	90.4

use strict;
use warnings;

package CouchDB::View::Document;

use URI::Escape;
use Data::Dump::Streamer;
use JSON::XS;

my $j = JSON::XS->new;

sub new { bless $_[1] => $_[0] }

sub code_to_string {
  my ($self, $code) = @_;
  return sprintf 'do { my $CODE1; %s; $CODE1 }
',
    Data::Dump::Streamer->new->Data($code)->Out;
}

sub as_hash {
  my ($self) = @_;
  return {
    $self->{_rev} ? (_rev => $self->{_rev}) : (),

    _id  => $self->{_id},

    language => 'text/perl',

    views => {
      map {
        $_ => $self->code_to_string($self->{views}{$_})
      } keys %{ $self->{views} },
    },
  };
}

sub as_json {
  my ($self) = @_;

  return $j->encode($self->as_hash);
}

sub uri_id { uri_escape(shift->{_id}) }

1;
__END__