Catalyst::Helper::View::TT->mk_compclass and
Catalyst::Helper::View::TT->mk_comptest.
-See L<Catalyst::Helper::View::TT> and L<Catalyst::Helper::Model::CDBI> for
+See L<Catalyst::Helper::View::TT> and L<Catalyst::Helper::Model::DBIC> for
examples.
All helper classes should be under one of the following namespaces.
# Set flags and add plugins for the application
#
# -Debug: activates the debug mode for very useful log messages
+# ConfigLoader: will load the configuration from a YAML file in the
+# application's home directory
# Static::Simple: will serve static files from the application's root
-# directory
+# directory
#
use Catalyst qw/-Debug ConfigLoader Static::Simple/;
our $VERSION = '0.01';
#
+# Configure the application
+#
+__PACKAGE__->config( name => '[% name %]' );
+
+#
# Start the application
#
__PACKAGE__->setup;
use FindBin;
use lib "$FindBin::Bin/../lib";
-my $debug = 0;
-my $fork = 0;
-my $help = 0;
-my $host = undef;
-my $port = 3000;
-my $keepalive = 0;
-my $restart = 0;
-my $restart_delay = 1;
-my $restart_regex = '\.yml$|\.yaml$|\.pm$';
+my $debug = 0;
+my $fork = 0;
+my $help = 0;
+my $host = undef;
+my $port = 3000;
+my $keepalive = 0;
+my $restart = 0;
+my $restart_delay = 1;
+my $restart_regex = '\.yml$|\.yaml$|\.pm$';
+my $restart_directory = undef;
my @argv = @ARGV;
GetOptions(
- 'debug|d' => \$debug,
- 'fork' => \$fork,
- 'help|?' => \$help,
- 'host=s' => \$host,
- 'port=s' => \$port,
- 'keepalive|k' => \$keepalive,
- 'restart|r' => \$restart,
- 'restartdelay|rd=s' => \$restart_delay,
- 'restartregex|rr=s' => \$restart_regex
+ 'debug|d' => \$debug,
+ 'fork' => \$fork,
+ 'help|?' => \$help,
+ 'host=s' => \$host,
+ 'port=s' => \$port,
+ 'keepalive|k' => \$keepalive,
+ 'restart|r' => \$restart,
+ 'restartdelay|rd=s' => \$restart_delay,
+ 'restartregex|rr=s' => \$restart_regex,
+ 'restartdirectory=s' => \$restart_directory,
);
pod2usage(1) if $help;
require [% name %];
[% name %]->run( $port, $host, {
- argv => \@argv,
- 'fork' => $fork,
- keepalive => $keepalive,
- restart => $restart,
- restart_delay => $restart_delay,
- restart_regex => qr/$restart_regex/
+ argv => \@argv,
+ 'fork' => $fork,
+ keepalive => $keepalive,
+ restart => $restart,
+ restart_delay => $restart_delay,
+ restart_regex => qr/$restart_regex/,
+ restart_directory => $restart_directory,
} );
1;
-rr -restartregex regex match files that trigger
a restart when modified
(defaults to '\.yml$|\.yaml$|\.pm$')
+ -restartdirectory the directory to search for
+ modified files
+ (defaults to '../')
See also:
perldoc Catalyst::Manual
[% appprefix %]_create.pl view MyView TT
[% appprefix %]_create.pl view TT TT
[% appprefix %]_create.pl model My::Model
- [% appprefix %]_create.pl model SomeDB CDBI dbi:SQLite:/tmp/my.db
- [% appprefix %]_create.pl model AnotherDB CDBI dbi:Pg:dbname=foo root 4321
+ [% appprefix %]_create.pl model SomeDB DBIC::SchemaLoader dbi:SQLite:/tmp/my.db
+ [% appprefix %]_create.pl model AnotherDB DBIC::SchemaLoader dbi:Pg:dbname=foo root 4321
See also:
perldoc Catalyst::Manual
__comptest__
use strict;
use warnings;
-[% IF long_type == 'Controller' %][% IF mech %]our $test_count;
-use Test::More;
+[% IF long_type == 'Controller' %][% IF mech %]use Test::More;
eval "use Test::WWW::Mechanize::Catalyst '[% app %]'";
plan $@