File Coverage

blib/lib/Reply/Plugin/ORM/Otogiri.pm

Criterion	Covered	Total	%
statement	15	35	42.8
branch	0	6	0.0
condition			n/a
subroutine	5	6	83.3
pod	0	1	0.0
total	20	48	41.6

package Reply::Plugin::ORM::Otogiri;
use strict;
use warnings;

use List::Compare;
use Module::Load;
use Path::Tiny;

my @UNNECESSARY_METHODS = qw/
    _deflate_param
    _inflate_rows
    BEGIN
    import
    load_plugin
    maker
    new
/;

sub new {
    my ($class, $db_name, $config, %opts) = @_;

    eval { require Otogiri };
    Carp::croak "[Error] Module 'Otogiri' not found." if $@;
    eval { require Otogiri::Plugin };
    Carp::croak "[Error] Module 'Otogiri::Plugin' not found." if $@;

    load 'Otogiri';
    load 'Otogiri::Plugin';

    if ($opts{otogiri_plugins}) {
        Otogiri->load_plugin($_) for split /,/, $opts{otogiri_plugins};
    }
    my $orm = Otogiri->new( %{ $config } );

    my $list = List::Compare->new([ grep { $_ !~ /^_/ } keys %{DBIx::Otogiri::} ], \@UNNECESSARY_METHODS);
    my @methods = map { s/(^.)/uc $1/e; $_ } $list->get_Lonly;

    return bless {
        orm     => $orm,
        methods => \@methods,
    }, $class;
}

1;