Perly/Model/Code.pm

use strict;
use warnings;

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

use Perly::Record schema {

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