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 |
label is 'Source code', |
11 |
type is 'text', |
12 |
render_as 'textarea', |
13 |
is mandatory; |
14 |
|
15 |
column owner => |
16 |
refers_to Perly::Model::User by 'id', |
17 |
label is 'Owner', |
18 |
default is defer { Jifty->web->current_user->id || 0 }; |
19 |
|
20 |
column created_on => |
21 |
type is 'timestamp', |
22 |
label is 'Created On', |
23 |
default is defer { DateTime->now }, |
24 |
filters are 'Jifty::DBI::Filter::DateTime'; |
25 |
|
26 |
}; |
27 |
|
28 |
# Your model-specific methods go here. |
29 |
|
30 |
1; |
31 |
|