1Catalyst::Helper::ModelU:s:eArdaCpotnotrr(i3b)uted PerlCDaotcaulmyesntt:a:tHieolnper::Model::Adaptor(3)
2
3
4
6 Catalyst::Helper::Model::Adaptor - helper for the incredibly lazy
7
9 Running:
10
11 ./script/myapp_create.pl model SomeClass Adaptor MyApp::Backend::SomeClass create
12
13 Will create "YourApp::Model::SomeClass" that looks like:
14
15 package YourApp::Model::SomeClass;
16 use strict;
17 use warnings;
18 use base 'Catalyst::Model::Adaptor';
19
20 __PACKAGE__->config(
21 class => 'MyApp::Backend::SomeClass',
22 constructor => 'create',
23 );
24
25 1;
26
27 Why you need a script to generate that is beyond me, but here it is.
28
30 ./script/myapp_create.pl model <model_name> Adaptor <class> [<constructor>]
31
32 You need to sepecify the "model_name" (the name of the model), and
33 "class", the class being adapted. If "$class->new" isn't going to do
34 what you want, pass the name of $class's constructor as "constructor".
35
37 Jonathan Rockway "<jrockway@cpan.org>"
38
40 This library is free software. You can redistribute it and/or modify it
41 under the same terms as perl itself.
42
43 No copyright claim is asserted over the generated code.
44
45
46
47perl v5.34.0 2021-07-22Catalyst::Helper::Model::Adaptor(3)