File Coverage

blib/lib/AnyEvent/Groonga/Result/Select.pm

Criterion	Covered	Total	%
statement	12	35	34.2
branch	0	4	0.0
condition			n/a
subroutine	4	7	57.1
pod	3	3	100.0
total	19	49	38.7

package AnyEvent::Groonga::Result::Select;
use strict;
use warnings;
use Encode;
use base qw(AnyEvent::Groonga::Result);

sub hit_num {
    my $self = shift;
    return $self->body->[0]->[0]->[0];
}

sub columns {
    my $self = shift;
    my @cols = ();
    if ( ref $self->body eq 'ARRAY' ) {
        for ( @{ $self->body->[0]->[1] } ) {
            push @cols, $_->[0];
        }
    }
    return \@cols;
}

sub items {
    my $self       = shift;
    my $cols       = $self->columns;
    my @item_array = ();
    if ( ref $self->body eq 'ARRAY' ) {
        for my $i ( 2 .. int @{ $self->body->[0] } - 1 ) {
            my $row = $self->body->[0]->[$i];
            my $item;
            for my $j ( 0 .. int @$cols - 1 ) {
                my $key   = $cols->[$j];
                my $value = $row->[$j];
                $item->{$key} = $value;
            }
            push @item_array, $item;
        }
    }
    return \@item_array;
}

1;
__END__