File: Gnarly_Station.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 (20 lines) | stat: -rw-r--r-- 485 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
package TestSchema::Result::Gnarly_Station;

use DBIx::Class::Candy
   -components => ['Helper::Row::JoinTable'];

my $config = {
   left_class          => 'Gnarly',
   left_method         => 'gnarly',
   left_method_plural  => 'gnarlies',
   right_class         => 'Station',
   right_method        => 'station',
   right_method_plural => 'stations',
   self_method         => 'gnarly_stations',
};

join_table $config;
generate_has_manys $config;
generate_many_to_manys $config;

1;