File Coverage

blib/lib/Cassandra/Client/ResultSet.pm

Criterion	Covered	Total	%
statement	8	16	50.0
branch			n/a
condition	0	6	0.0
subroutine	3	8	37.5
pod	4	5	80.0
total	15	35	42.8

package Cassandra::Client::ResultSet;
our $AUTHORITY = 'cpan:TVDW';
$Cassandra::Client::ResultSet::VERSION = '0.13_004'; # TRIAL

$Cassandra::Client::ResultSet::VERSION = '0.13004';use 5.010;
use strict;
use warnings;


sub new {
    my ($class, $raw_data, $decoder, $next_page)= @_;

    return bless {
        raw_data => $raw_data,
        decoder => $decoder,
        next_page => $next_page,
    }, $class;
}


sub rows {
    return $_[0]{rows} ||= $_[0]{decoder}->decode(${$_[0]{raw_data}}, 0);
}


sub row_hashes {
    return $_[0]{row_hashes} ||= $_[0]{decoder}->decode(${$_[0]{raw_data}}, 1);
}


sub column_names {
    $_[0]{decoder}->column_names
}


sub next_page {
    $_[0]{next_page}
}


1;

__END__