package Tutorial::Model::User; use strict; use warnings; use base 'Tutorial::Model::DBIC'; __PACKAGE__->table( 'user' ); __PACKAGE__->add_colums( qw/id username password/ ); __PACKAGE__->set_primary_key( 'id' ); __PACKAGE__->has_many( map_user_role => 'Tutorial::Model::UserRole' => 'user' ); =head1 NAME Tutorial::Model::User - Catalyst Model =head1 SYNOPSIS See L =head1 DESCRIPTION Catalyst Model. =head1 AUTHOR root =head1 LICENSE This library is free software, you can redistribute it and/or modify it under the same terms as Perl itself. =cut 1;