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