All pastes #42709 Raw Edit

Anonymous

public text v1 · immutable
#42709 ·published 2006-02-21 23:17 UTC
rendered paste body
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<Tutorial>

=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;