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


line stmt bran cond sub pod time code
1             package Cassandra::Client::ResultSet;
2             our $AUTHORITY = 'cpan:TVDW';
3             $Cassandra::Client::ResultSet::VERSION = '0.13_006'; # TRIAL
4              
5 1     1   20 $Cassandra::Client::ResultSet::VERSION = '0.13006';use 5.010;
  1         4  
6 1     1   4 use strict;
  1         2  
  1         16  
7 1     1   4 use warnings;
  1         1  
  1         220  
8              
9              
10             sub new {
11 0     0 0   my ($class, $raw_data, $decoder, $next_page)= @_;
12              
13 0           return bless {
14             raw_data => $raw_data,
15             decoder => $decoder,
16             next_page => $next_page,
17             }, $class;
18             }
19              
20              
21             sub rows {
22 0   0 0 1   return $_[0]{rows} ||= $_[0]{decoder}->decode(${$_[0]{raw_data}}, 0);
  0            
23             }
24              
25              
26             sub row_hashes {
27 0   0 0 1   return $_[0]{row_hashes} ||= $_[0]{decoder}->decode(${$_[0]{raw_data}}, 1);
  0            
28             }
29              
30              
31             sub column_names {
32             $_[0]{decoder}->column_names
33 0     0 1   }
34              
35              
36             sub next_page {
37             $_[0]{next_page}
38 0     0 1   }
39              
40              
41             1;
42              
43             __END__