File Coverage

lib/DBIx/Skinny/Mixin/Pager.pm
Criterion Covered Total %
statement 19 24 79.1
branch 0 2 0.0
condition n/a
subroutine 7 8 87.5
pod 0 2 0.0
total 26 36 72.2


line stmt bran cond sub pod time code
1             package DBIx::Skinny::Mixin::Pager;
2 3     3   243532 use strict;
  3         7  
  3         93  
3 3     3   15 use warnings;
  3         7  
  3         67  
4 3     3   2666 use UNIVERSAL::require;
  3         5175  
  3         31  
5 3     3   1207 use DBIx::Skinny::Pager::Logic::Count;
  3         10  
  3         40  
6 3     3   1702 use DBIx::Skinny::Pager::Logic::MySQLFoundRows;
  3         7  
  3         59  
7 3     3   1589 use DBIx::Skinny::Pager::Logic::PlusOne;
  3         8  
  3         29  
8              
9             sub register_method {
10             +{
11 2     2 0 64 'resultset_with_pager' => \&resultset_with_pager,
12             }
13             }
14              
15             # see also DBIx::Skinny#resultset
16             sub resultset_with_pager {
17 0     0 0   my ($class, $logic, $args) = @_;
18 0           my $logic_class = "DBIx::Skinny::Pager::Logic::$logic";
19 0 0         $logic_class->require
20             or die $@;
21 0           $args->{skinny} = $class;
22 0           $logic_class->new($args);
23             }
24              
25             1;
26             __END__