package LocalSite::InquiryQueryApp; use LocalSite::InquiryUtils; use base 'CGI::Application'; use strict; sub setup{ my $self=shift; $self->start_mode('query'); $self->mode_param('rm'); $self->run_modes( 'query'=>\&query_mode, 'display'=>\&display_mode, "AUTOLOAD"=>\&error_mode ); #get our database connection $self->param('dbh'=>getDbConnection); } sub query_mode{ my $self=shift; my $query=$self->query(); my $str="Query Mode"; return $str; } sub error_mode{ my $self=shift; my $rm=shift; my $str="Error: you have chosen an invalid runmode"; return $str; } sub display_mode{ my $self=shift; my $query=$self->query(); my $str="Display Mode"; return $str; } sub teardown{ my $self=shift; $self->param('dbh')->disconnect(); } 1;