File Coverage

blib/lib/AnyEvent/Groonga/Result.pm

Criterion	Covered	Total	%
statement	21	41	51.2
branch	0	4	0.0
condition	0	3	0.0
subroutine	7	14	50.0
pod	6	6	100.0
total	34	68	50.0

package AnyEvent::Groonga::Result;
use strict;
use warnings;
use base qw( Class::Accessor::Fast );
use AnyEvent::Groonga::Result::Select;
use Data::Dumper;
use Encode;

__PACKAGE__->mk_accessors($_) for qw( data posted_command );

sub new {
    my $class = shift;
    my $self = $class->SUPER::new( {@_} );
    if ( $self->posted_command and ( $self->posted_command eq 'select' ) ) {
        return AnyEvent::Groonga::Result::Select->new( data => $self->data );
    }
    return $self;
}

sub dump {
    my $self = shift;
    {
        no warnings 'redefine';
        local *Data::Dumper::qquote = sub { return shift; };
        local $Data::Dumper::Useperl = 1;

        return encode( "utf8", decode( "utf8", Dumper( $self->data ) ) );
    }
}

sub status {
    my $self   = shift;
    my $status = $self->data->[0]->[0];
    return $status ? 0 : 1;
}

sub start_time {
    my $self = shift;
    return $self->data->[0]->[1];
}

sub elapsed {
    my $self = shift;
    return $self->data->[0]->[2];
}

sub body {
    my $self = shift;
    return $self->data->[1];
}

1;
__END__