package Catalyst::Model::CDBI::Plain; use strict; our $VERSION = '0.03'; use base qw[Class::DBI Catalyst::Base]; sub new { my ( $class, $c ) = @_; return Catalyst::Base->new( $class, $c ); } 1; #### 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;