Perly/Model/User.pm

use strict;
use warnings;

package Perly::Model::User;
use Jifty::DBI::Schema;

use Perly::Record schema {

column name =>
    label is 'Username',
    hints is 'Other people see this when you do something.',
    is distinct, is mandatory;

column email =>
    label is 'Email',
    hints is 'We will not sell it to anybody. Honest.',
    default is '',
    is distinct, is immutable;

};

use Jifty::Plugin::User::Mixin::Model::User;
use Jifty::Plugin::Authentication::Password::Mixin::Model::User;

# Your model-specific methods go here.
1;

1	dpavlin	2	use strict;
2			use warnings;
3
4			package Perly::Model::User;
5			use Jifty::DBI::Schema;
6
7			use Perly::Record schema {
8
9			column name =>
10			label is 'Username',
11			hints is 'Other people see this when you do something.',
12			is distinct, is mandatory;
13
14			column email =>
15			label is 'Email',
16			hints is 'We will not sell it to anybody. Honest.',
17			default is '',
18			is distinct, is immutable;
19
20			};
21
22			use Jifty::Plugin::User::Mixin::Model::User;
23			use Jifty::Plugin::Authentication::Password::Mixin::Model::User;
24
25			# Your model-specific methods go here.
26			1;
27