File: Gnarly.pm

package info (click to toggle)
libdbix-class-helpers-perl 2.013002-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 420 kB
  • sloc: perl: 1,931; sql: 73; makefile: 2
file content (33 lines) | stat: -rw-r--r-- 544 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
package TestSchema::Result::Gnarly;

use DBIx::Class::Candy
   -components => [qw(
      Helper::Row::ToJSON
      Helper::Row::ProxyResultSetMethod
   )];

table 'Gnarly';

column 'id';
column 'name';

column literature => {
   data_type => 'text',
   is_nullable => 1,
};
column your_mom => {
   data_type => 'blob',
   is_nullable => 1,
   is_serializable => 1,
};

primary_key 'id';

proxy_resultset_method 'id_plus_one';

proxy_resultset_method id_plus_two => {
   resultset_method => 'id_plus_two',
   slot             => 'plus2',
};

1;