1Maypole::Model::CDBI::PUlsaeirn(C3o)ntributed Perl DocumMeanytpaotlieo:n:Model::CDBI::Plain(3)
2
3
4
6 Maypole::Model::CDBI::Plain - Class::DBI model without ::Loader
7
9 package Foo;
10 use 'Maypole::Application';
11
12 Foo->config->model("Maypole::Model::CDBI::Plain");
13 Foo->setup([qw/ Foo::SomeTable Foo::Other::Table /]);
14
15 # untaint columns and provide custom actions for each class
16
17 Foo::SomeTable->untaint_columns(email => ['email'], printable => [qw/name description/]);
18
19 Foo::Other::Table->untaint_columns ( ... );
20
21 sub Foo::SomeTable::SomeAction : Exported {
22
23 . . .
24
25 }
26
28 This module allows you to use Maypole with previously set-up Class::DBI
29 classes; simply call "setup" with a list reference of the classes
30 you're going to use, and Maypole will work out the tables and set up
31 the inheritance relationships as normal.
32
34 setup
35
36 This method is inherited from Maypole::Model::Base and calls setup_database,
37 which uses Class::DBI::Loader to create and load Class::DBI classes from
38 the given database schema.
39
40 setup_database
41
42 This method loads the model classes for the application
43
44 class_of
45
46 returns class for given table
47
48 adopt
49
50 This class method is passed the name of a model class that represensts
51 a table and allows the master model class to do any set-up required.
52
54 Maypole::Model::Base
55
56 Maypole::Model::CDBI
57
58
59
60perl v5.8.8 2005-11-23 Maypole::Model::CDBI::Plain(3)