File Coverage

lib/DBIx/Skinny/Pager/Logic/Count.pm

Criterion	Covered	Total	%
statement	15	27	55.5
branch	0	2	0.0
condition	0	6	0.0
subroutine	5	6	83.3
pod	0	1	0.0
total	20	42	47.6

package DBIx::Skinny::Pager::Logic::Count;
use strict;
use warnings;
use base qw/DBIx::Skinny::Pager/;
use Data::Page;
use DBIx::Skinny::SQL;

sub get_total_entries {
    my ($self, $iter) = @_;
    my %hash = %{ $self };
    for my $col ( qw( limit offset page select order ) ) {
        delete $hash{$col};
    }
    my $rs = DBIx::Skinny::SQL->new(\%hash);
    $rs->add_select("COUNT(*)" => 'cnt');
    my $new_iter = $rs->retrieve;
    if ( $rs->group && ( ref $rs->group eq 'ARRAY' && @{ $rs->group } ) ) {
        # are there better way?
        return $new_iter->count;
    } else {
        return $new_iter->first->cnt;
    }
}

1;
__END__