package JobAd::AuthGroups; use strict; use base 'JobAd::GEN::AuthGroups'; use Gantry::Plugins::AutoCRUD qw( do_add do_edit do_delete form_name ); use JobAd::Model::auth_groups qw( $AUTH_GROUPS ); use JobAd::Model; sub schema_base_class { return 'JobAd::Model'; } use Gantry::Plugins::DBIxClassConn qw( get_schema ); #----------------------------------------------------------------- # $self->do_main( ) #----------------------------------------------------------------- # This method supplied by JobAd::GEN::AuthGroups #----------------------------------------------------------------- # $self->form( $row ) #----------------------------------------------------------------- # This method supplied by JobAd::GEN::AuthGroups #----------------------------------------------------------------- # get_model_name( ) #----------------------------------------------------------------- sub get_model_name { return $AUTH_GROUPS; } #----------------------------------------------------------------- # get_orm_helper( ) #----------------------------------------------------------------- sub get_orm_helper { return 'Gantry::Plugins::AutoCRUDHelper::DBIxClass'; } #----------------------------------------------------------------- # text_descr( ) #----------------------------------------------------------------- sub text_descr { return 'auth groups'; } 1; =head1 NAME JobAd::AuthGroups - A controller in the JobAd application =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 JobAd::AuthGroups; my $cgi = Gantry::Engine::CGI->new( { config => { #... }, locations => { '/someurl' => 'JobAd::AuthGroups', #... }, } ); httpd.conf: # ... use JobAd::AuthGroups; SetHandler perl-script PerlHandler JobAd::AuthGroups 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 schema_base_class =item get_orm_helper =back =head1 METHODS MIXED IN FROM JobAd::GEN::AuthGroups =over 4 =item do_main =item form =back =head1 DEPENDENCIES JobAd JobAd::GEN::AuthGroups JobAd::Model::auth_groups Gantry::Plugins::AutoCRUD =head1 AUTHOR Phil Crow, Epcrow@localdomainE =head1 COPYRIGHT AND LICENSE Copyright (C) 2006 Phil Crow 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