]>
Dogcows Code - chaz/p5-CGI-Ex/blob - samples/app/app1/lib/App1.pm
5 App1 - base class for use in app1.pl
11 use base
qw(CGI::Ex::App);
13 use CGI
::Ex
::Dump
qw(debug);
15 ###----------------------------------------------------------------###
17 # preload these so that their load times don't affect the dump_history times
19 use Template
::Alloy
qw(Parse Play Compile);
23 debug
$self->dump_history
24 if ! $self->{'no_history'};
27 ###----------------------------------------------------------------###
30 sub conf_file
{ "$Bin/app1.yaml" }
31 sub conf_validation
{ {path
=> {required
=> 1, max_values
=> 100}} }
35 sub name_module
{ "" } # allow content files to be in /tt/ directory directly
36 sub template_path
{ "$Bin/tt" }
37 sub template_args
{ {COMPILE_DIR
=> "/tmp/tt/app1.cache"} }
39 # if we want automatic javascript validation, and we have overridden the path,
40 # we need to give the script a way to find the validate.js
41 sub js_uri_path
{ (my $path = $ENV{'SCRIPT_NAME'}) =~ s
|[^/]+$|js
.pl
|; $path }
43 # setting this instructs the flow to continue until a step does not have data
44 sub validate_when_data
{ 1 }
This page took 0.038972 seconds and 5 git commands to generate.