Commit | Line | Data |
a78e3fed |
1 | package DBIx::Class::Loader::Writing; |
2 | |
3 | # Empty. POD only. |
4 | |
5 | 1; |
6 | |
7 | =head1 NAME |
8 | |
9 | DBIx::Class::Loader::Writing - Loader subclass writing guide |
10 | |
11 | =head1 SYNOPSIS |
12 | |
13 | package DBIx::Class::Loader::Foo; |
14 | |
15 | # THIS IS JUST A TEMPLATE TO GET YOU STARTED. |
16 | |
17 | use strict; |
18 | use base 'DBIx::Class::Loader::Generic'; |
19 | use DBI; |
20 | use Carp; |
21 | |
22 | sub _db_classes { |
23 | return qw/DBIx::Class::PK::Auto::Foo/; |
24 | # You may want to return more, or less, than this. |
25 | } |
26 | |
27 | sub _tables { |
28 | my $self = shift; |
af6c2665 |
29 | my $dbh = $self->{_storage}->dbh; |
a78e3fed |
30 | return $dbh->tables; # Your DBD may need something different |
31 | } |
32 | |
33 | sub _table_info { |
34 | my ( $self, $table ) = @_; |
35 | ... |
36 | return ( \@cols, \@primary ); |
37 | } |
38 | |
39 | sub _relationships { |
40 | my $self = shift; |
41 | ... |
42 | $self->_belongs_to_many($table, $f_key, $f_table, $f_column); |
43 | # For each relationship you want to set up ($f_column is |
44 | # optional, default is $f_table's primary key) |
45 | ... |
46 | } |
47 | |
48 | =cut |