/ 
Catalyst-TraitFor-Model-DBIC-Shortcut-0.01
River stage zero No dependents
/ Catalyst::TraitFor::Model::DBIC::Shortcut

NAME

Catalyst::TraitFor::Model::DBIC::Shortcut - shortcuts support for DBIC models

VERSION

Version 0.01

SYNOPSIS

#
# application class
#
package TestApp;

use Moose;
use namespace::autoclean;
use Catalyst qw/ ......... /;
extends 'Catalyst';
with 'Catalyst::TraitFor::Model::DBIC::Shortcut';


#
# controller class
#
package TestApp::Controller::Test;

.........
    # these two calss are the same
    my $s = $c->model('DB')->schema;
    my $s = $c->db_schema;
.........
    # these two calss are the same
    my $rs = $c->model('DB::Actor');
    my $rs = $c->db_actor_rs;
.........

DESCRIPTION

If you got tired of writting $c->model('DB::Actor') each time, or if you use auto-completion intensively, you could look at this trait. Just use this role in your application class, and you'll have shortcuts auto-created for all DBIx::Class-based models:

- schema

for all schema classes, based on Catalyst::Model::DBIC::Schema, you'll get method with name "lowercase class name" + "_schema", with all "::" converted to underscore ("_"):

$c->model('DB')->schema         ==>     $c->db_schema
$c->model('DBIC')->schema       ==>     $c->dbic_schema
$c->model('DBIC::DB1')->schema  ==>     $c->dbic_db1_schema
- resultset

for all resultset classes, based on DBIx::Class, you'll get method with name "lowercase class name" + "_rs", with all "::" converted to underscore ("_"):

$c->model('DB::Actor')          ==>     $c->db_actor_rs
$c->model('DB::Track')          ==>     $c->db_track_rs
$c->model('DBIC::DB1::Actor')   ==>     $c->dbic_db1_actor_rs

SEE ALSO

Catalyst, DBIx::Class, Moose

SUPPORT

AUTHOR

Oleg Kostyuk, <cub#cpan.org>

Based on ideas from from Pedro Melo and Oleg Pronin

http://lists.scsys.co.uk/pipermail/dbix-class/2010-January/008794.html

http://lists.scsys.co.uk/pipermail/dbix-class/2010-February/008903.html

COPYRIGHT & LICENSE

Copyright by Oleg Kostyuk.

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.