The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
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