File Coverage

blib/lib/Data/Paging.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	4	6	66.6
condition			n/a
subroutine	9	9	100.0
pod	0	1	0.0
total	44	47	93.6

package Data::Paging;
use common::sense;
use 5.008008;
use UNIVERSAL::require;

our $VERSION = "0.01";

use Class::Accessor::Lite (
    new => 0,
    rw  => [qw/collection/],
);
use Carp qw/croak/;
use Data::Paging::Collection;

sub create {
    my ($class, $collection_param, $renderer_name) = @_;
    my $collection = Data::Paging::Collection->new(%$collection_param);
    $collection->renderer($class->_create_renderer($renderer_name)) if $renderer_name;
    $collection;
}

sub _create_renderer {
    my ($class, $renderer_name) = @_;
    my $package = $class->_load_renderer($renderer_name);
    $package->new;
}

sub _load_renderer {
    my ($class, $name) = @_;
    croak "no renderer name" unless $name;

    my $package = $name;
    $package =~ s/\A-/Data::Paging::Renderer::/;
    $package->require or croak "can't load renderer: $package";
    $package;
}

1;
__END__