Re^3: Catalyst and DBI

[Solo]

I use DBI, because I must write live queries without any ORM... But now every model has it's own connection...

Do you need more than one DBI model per database, and if so, why?

[brainbuz]

I've been working on some documentation for dbi models.

• http://brainbuz.org/techinfo/Catalyst-Model-Simple-Tutorial.html
or
• https://github.com/brainbuz/Catalyst--Model--Simple--Tutorial

You would create a single model to connect to each database. Then you would create submodels for each group of methods, I frequently group them by table.

# Parent MODEL
package BoPeep::Model::BoPeep;

use strict;
use warnings;
use DBIx::Simple ;
use parent 'Catalyst::Model::DBI';

__PACKAGE__->config(
             dsn => BoPeep->config->{dsn} ,
             user => BoPeep->config->{user} ,
             password => BoPeep->config->{password} ,
 );

use Moose ; #use Moose immediately before calling 
            #on Moose to extend the object
has db=>(
        is =>'ro',
        isa=>'DBIx::Simple',
        lazy_build=> 1,
 # If we don't want to handle all dbis methods, 
 # specify those that we want.    
 #      handles=> [qw/query flat /],
        );
sub _build_db {
        my $self = shift ;
        return DBIx::Simple->connect($self->dbh);
} ;


# Child Model
package BoPeep::Model::BoPeep::Flock;
use Moose;
use BoPeep;
use namespace::autoclean;

extends 'BoPeep::Model::BoPeep';

sub List {
        my $self = shift ;
        my $db = $self->db ;
        my @sheep = $db->query('SELECT * FROM flock')->flat ;
        return @sheep ;
        }
__PACKAGE__->meta->make_immutable( inline_constructor => 0 );
1;