package Catalyst::Model::DBIC::Plain; use strict; use base qw/Catalyst::Model DBIx::Class::Schema/; use NEXT; sub new { my ( $self, $c ) = @_; $self = $self->NEXT::new($c); return $self; } 1;