DBIx::Class::Simple

Perl

すげーーーーー適当。

package DBIx::Class::Simple;
use strict;
use warnings;
use base qw/DBIx::Class/;
use Carp::Clan qw/^DBIx::Class/;
use DBIx::Simple;

sub simple_dbh {
    my $self = shift;
    return DBIx::Simple->connect(@{$self->storage->connect_info}) or croak DBIx::Simple->error;
}

1;

コネクション情報だけを使いまわし。
インフレートさせたりとかまったくかんがえてなす。
んーこれやるならDBIx::Class::Storage側にあるべきか。
もしくはもっとちゃんと書くべきか。