1package Sample; 2 3use strict; 4use warnings; 5 6our $VERSION = '0.01'; 7 8use base 'GENSample'; 9 10use Sample::Model::tbl1 qw( 11 $TBL1 12); 13use Gantry::Plugins::NewTwo; 14 15 16use Missing::Module; 17 18 19 20#----------------------------------------------------------------- 21# $self->do_main( ) 22#----------------------------------------------------------------- 23# This method inherited from GENSample 24 25#----------------------------------------------------------------- 26# $self->form( $row ) 27#----------------------------------------------------------------- 28# This method inherited from GENSample 29 30#----------------------------------------------------------------- 31# text_descr( ) 32#----------------------------------------------------------------- 33sub text_descr { 34 return 'sample row'; 35} 36#----------------------------------------------------------------- 37# get_model_name( ) 38#----------------------------------------------------------------- 39sub get_model_name { 40 return $TBL1; 41} 42 43#----------------------------------------------------------------- 44# get_orm_helper( ) 45#----------------------------------------------------------------- 46sub get_orm_helper { 47 return 'Gantry::Plugins::AutoCRUDHelper::DBIxClass'; 48} 49 50 51#----------------------------------------------------------------- 52# $self->init( $r ) 53#----------------------------------------------------------------- 54# This method inherited from GENSample 55 561; 57 58=head1 NAME 59 60Sample - the base module of this web app 61 62=head1 SYNOPSIS 63 64This package is meant to be used in a stand alone server/CGI script or the 65Perl block of an httpd.conf file. 66 67Stand Alone Server or CGI script: 68 69 use Sample; 70 71 my $cgi = Gantry::Engine::CGI->new( { 72 config => { 73 #... 74 }, 75 locations => { 76 '/' => 'Sample', 77 #... 78 }, 79 } ); 80 81httpd.conf: 82 83 <Perl> 84 # ... 85 use Sample; 86 </Perl> 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 GENSample 110 111=over 4 112 113=item namespace 114 115=item init 116 117=item do_main 118 119=item form 120 121=item schema_base_class 122 123 124=back 125 126 127=head1 SEE ALSO 128 129 Gantry 130 GENSample 131 132=head1 AUTHOR 133 134SomeOne 135 136=head1 COPYRIGHT AND LICENSE 137 138Copyright (C) 2006 SomeOne 139 140This library is free software; you can redistribute it and/or modify 141it under the same terms as Perl itself, either Perl version 5.8.6 or, 142at your option, any later version of Perl 5 you may have available. 143 144=cut 145