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