File Coverage

lib/DBIx/Skinny/Mixin/SearchWithPager.pm

Criterion	Covered	Total	%
statement	10	19	52.6
branch	0	4	0.0
condition			n/a
subroutine	4	5	80.0
pod	0	2	0.0
total	14	30	46.6

package DBIx::Skinny::Mixin::SearchWithPager;
use strict;
use warnings;
use UNIVERSAL::require;

sub register_method {
    +{
        'search_with_pager' => \&search_with_pager,
    };
}

sub search_with_pager {
    my ($class, $table, $where_cnd, $option_cnd, ) = @_;
    my $pager_logic = delete $option_cnd->{pager_logic};
    my $page = delete $option_cnd->{page};
    my $rs = $class->search_rs($table, $where_cnd, $option_cnd);
    my $logic_class = "DBIx::Skinny::Pager::Logic::$pager_logic";
    $logic_class->require
        or die $@;
    bless $rs, $logic_class; # rebless resultset.
    $rs->page($page) if $page;
    $rs->retrieve();
}

1;

__END__