Perly/Model/Input.pm

use strict;
use warnings;

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

use Perly::Record schema {

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

        column content =>
                label is 'Content',
                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';
};

sub since { '0.0.2' };

# Your model-specific methods go here.

1;

1	use strict;
2	use warnings;
3
4	package Perly::Model::Input;
5	use Jifty::DBI::Schema;
6
7	use Perly::Record schema {
8
9	column name =>
10	label is 'Name',
11	is mandatory,
12	since '0.0.3';
13
14	column content =>
15	label is 'Content',
16	type is 'text',
17	render_as 'textarea',
18	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	sub since { '0.0.2' };
33
34	# Your model-specific methods go here.
35
36	1;
37