1package AddressBook::Child;
2
3use strict;
4use warnings;
5
6use base 'AddressBook::GEN::Child';
7
8use Gantry::Plugins::AutoCRUD qw(
9    do_add
10    do_edit
11    do_delete
12    form_name
13    write_file
14);
15
16use AddressBook::Model::child qw(
17    $CHILD
18);
19
20#-----------------------------------------------------------------
21# $self->do_main(  )
22#-----------------------------------------------------------------
23# This method inherited from AddressBook::GEN::Child
24
25#-----------------------------------------------------------------
26# $self->form( $row )
27#-----------------------------------------------------------------
28# This method inherited from AddressBook::GEN::Child
29
30#-----------------------------------------------------------------
31# get_model_name( )
32#-----------------------------------------------------------------
33sub get_model_name {
34    return $CHILD;
35}
36
37#-----------------------------------------------------------------
38# get_orm_helper( )
39#-----------------------------------------------------------------
40sub get_orm_helper {
41    return 'Gantry::Plugins::AutoCRUDHelper::DBIxClass';
42}
43
44#-----------------------------------------------------------------
45# text_descr( )
46#-----------------------------------------------------------------
47sub text_descr     {
48    return 'child';
49}
50
511;
52
53=head1 NAME
54
55AddressBook::Child - A controller in the AddressBook application
56
57=head1 SYNOPSIS
58
59This package is meant to be used in a stand alone server/CGI script or the
60Perl block of an httpd.conf file.
61
62Stand Alone Server or CGI script:
63
64    use AddressBook::Child;
65
66    my $cgi = Gantry::Engine::CGI->new( {
67        config => {
68            #...
69        },
70        locations => {
71            '/someurl' => 'AddressBook::Child',
72            #...
73        },
74    } );
75
76httpd.conf:
77
78    <Perl>
79        # ...
80        use AddressBook::Child;
81    </Perl>
82
83    <Location /someurl>
84        SetHandler  perl-script
85        PerlHandler AddressBook::Child
86    </Location>
87
88If all went well, one of these was correctly written during app generation.
89
90=head1 DESCRIPTION
91
92This module was originally generated by Bigtop.  But feel free to edit it.
93You might even want to describe the table this module controls here.
94
95=head1 METHODS
96
97=over 4
98
99=item get_model_name
100
101=item text_descr
102
103=item get_orm_helper
104
105
106=back
107
108
109=head1 METHODS INHERITED FROM AddressBook::GEN::Child
110
111=over 4
112
113=item do_main
114
115=item form
116
117
118=back
119
120
121=head1 DEPENDENCIES
122
123    AddressBook
124    AddressBook::GEN::Child
125    AddressBook::Model::child
126    Gantry::Plugins::AutoCRUD
127
128=head1 AUTHOR
129
130Phil Crow, E<lt>phil@localdomainE<gt>
131
132=head1 COPYRIGHT AND LICENSE
133
134Copyright (C) 2007 Phil Crow
135
136This library is free software; you can redistribute it and/or modify
137it under the same terms as Perl itself, either Perl version 5.8.6 or,
138at your option, any later version of Perl 5 you may have available.
139
140=cut
141