Perly/Model/Code.pm

use strict;
use warnings;

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

use Perly::Record schema {

        column name =>
                label is 'Name',
                is mandatory,
                since '0.0.3';

        column source =>
                label is 'Source code',
                type is 'text',
                render_as 'textarea',
                is mandatory;

        column owner =>
                refers_to Perly::Model::User by 'id',
                label is 'Owner',
                default is defer { Jifty->web->current_user->id || 0 };
       
        column created_on =>
                type is 'timestamp',
                label is 'Created On',
                default is defer { DateTime->now },
                filters are 'Jifty::DBI::Filter::DateTime';

};

# Your model-specific methods go here.

1;

1	dpavlin	2	use strict;
2			use warnings;
3
4			package Perly::Model::Code;
5			use Jifty::DBI::Schema;
6
7			use Perly::Record schema {
8
9	dpavlin	12	column name =>
10			label is 'Name',
11			is mandatory,
12			since '0.0.3';
13
14	dpavlin	2	column source =>
15	dpavlin	3	label is 'Source code',
16	dpavlin	2	type is 'text',
17	dpavlin	6	render_as 'textarea',
18	dpavlin	2	is mandatory;
19
20			column owner =>
21			refers_to Perly::Model::User by 'id',
22			label is 'Owner',
23			default is defer { Jifty->web->current_user->id \|\| 0 };
24
25			column created_on =>
26			type is 'timestamp',
27			label is 'Created On',
28			default is defer { DateTime->now },
29			filters are 'Jifty::DBI::Filter::DateTime';
30
31			};
32
33			# Your model-specific methods go here.
34
35			1;
36