1 |
dpavlin |
9 |
use strict; |
2 |
|
|
use warnings; |
3 |
|
|
|
4 |
|
|
package Perly::Model::Input; |
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 |
9 |
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 |
|
|
|