package Sample;
use strict;
use warnings;
our $VERSION = '0.01';
use base 'GENSample';
use Sample::Model::tbl1 qw(
$TBL1
);
use Gantry::Plugins::NewTwo;
use Missing::Module;
#-----------------------------------------------------------------
# $self->do_main( )
#-----------------------------------------------------------------
# This method inherited from GENSample
#-----------------------------------------------------------------
# $self->form( $row )
#-----------------------------------------------------------------
# This method inherited from GENSample
#-----------------------------------------------------------------
# text_descr( )
#-----------------------------------------------------------------
sub text_descr {
return 'sample row';
}
#-----------------------------------------------------------------
# get_model_name( )
#-----------------------------------------------------------------
sub get_model_name {
return $TBL1;
}
#-----------------------------------------------------------------
# get_orm_helper( )
#-----------------------------------------------------------------
sub get_orm_helper {
return 'Gantry::Plugins::AutoCRUDHelper::DBIxClass';
}
#-----------------------------------------------------------------
# $self->init( $r )
#-----------------------------------------------------------------
# This method inherited from GENSample
1;
=head1 NAME
Sample - the base module of this web app
=head1 SYNOPSIS
This package is meant to be used in a stand alone server/CGI script or the
Perl block of an httpd.conf file.
Stand Alone Server or CGI script:
use Sample;
my $cgi = Gantry::Engine::CGI->new( {
config => {
#...
},
locations => {
'/' => 'Sample',
#...
},
} );
httpd.conf:
<Perl>
# ...
use Sample;
</Perl>
If all went well, one of these was correctly written during app generation.
=head1 DESCRIPTION
This module was originally generated by Bigtop. But feel free to edit it.
You might even want to describe the table this module controls here.
=head1 METHODS
=over 4
=item get_model_name
=item text_descr
=item get_orm_helper
=back
=head1 METHODS INHERITED FROM GENSample
=over 4
=item namespace
=item init
=item do_main
=item form
=item schema_base_class
=back
=head1 SEE ALSO
Gantry
GENSample
=head1 AUTHOR
SomeOne
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2006 SomeOne
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.6 or,
at your option, any later version of Perl 5 you may have available.
=cut