File Coverage

blib/lib/Teng/Plugin/ResultSet.pm

Criterion	Covered	Total	%
statement	21	31	67.7
branch	0	2	0.0
condition	0	3	0.0
subroutine	7	8	87.5
pod	1	1	100.0
total	29	45	64.4

package Teng::Plugin::ResultSet;
use 5.008001;
use strict;
use warnings;

our $VERSION = "0.01";

use Class::Load;
use String::CamelCase qw/decamelize/;

use Teng::ResultSet;
our @EXPORT = qw/resultset/;

{
    my %_CACHE;
    sub resultset {
        my ($self, $table_name) = @_;

        $table_name = decamelize $table_name;
        my $teng_class = ref $self;
        my $result_set_class = $_CACHE{$teng_class} ||= do {
            my $rs_class = "$teng_class\::ResultSet";
            Class::Load::load_optional_class($rs_class) or do {
                # make result_class class automatically
                no strict 'refs'; @{"$rs_class\::ISA"} = ('Teng::ResultSet');
            };
            $rs_class;
        };
        $result_set_class->new(teng => $self, table_name => $table_name);
    }
}

1;
__END__