File Coverage

blib/lib/Dancer/Plugin/ORMesque.pm

Criterion	Covered	Total	%
statement	15	32	46.8
branch	0	14	0.0
condition	0	3	0.0
subroutine	5	6	83.3
pod			n/a
total	20	55	36.3

#ABSTRACT: Light ORM for Dancer

package Dancer::Plugin::ORMesque;

use strict;
use warnings;

use Dancer qw/:syntax/;
use Dancer::Plugin;
use ORMesque;

our $VERSION = '1.113100'; # VERSION


my $schemas = {};

register db => sub {
    my $name = shift;
    my $cfg = plugin_setting;

    if (not defined $name) {
        ($name) = keys %$cfg or die "No schemas are configured";
    }

    return $schemas->{$name} if $schemas->{$name};

    my $options = $cfg->{$name} or die "The schema $name is not configured";

    my @conn_info = $options->{connect_info}
        ? @{$options->{connect_info}}
        : @$options{qw(dsn user pass options)};

    # pckg should be deprecated
    my $schema_class = $options->{schema_class} || $options->{pckg};

    if ($schema_class) {
        $schema_class =~ s/-/::/g;
        eval "use $schema_class";
        if ( my $err = $@ ) {
            die "error while loading $schema_class : $err";
        }
        $schemas->{$name} = $schema_class->new(@conn_info)
    } else {
        $schemas->{$name} = ORMesque->new(@conn_info);
    }

    return $schemas->{$name};
};

register_plugin;

1;

__END__