All pastes #220869 Raw Edit

Unnamed

public text v1 · immutable
#220869 ·published 2006-10-25 11:28 UTC
rendered paste body
[dscoular@dscoular-lnx MyApp]$ cat myapp.yml
---
name: MyApp

[dscoular@dscoular-lnx MyApp]$ cat lib/MyApp.pm
package MyApp;

use strict;
use warnings;

use Catalyst::Runtime '5.70';

# 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

use Catalyst qw/
                -Debug
                ConfigLoader
                Static::Simple
                StackTrace
                /;
our $VERSION = '0.01';

# Configure the application.
#
# Note that settings in MyApp.yml (or other external
# configuration file that you set up manually) take precedence
# over this when using ConfigLoader. Thus configuration
# details given here can function as a default configuration,
# with a external configuration file acting as an override for
# local deployment.

__PACKAGE__->config( name => 'MyApp' );

# Start the application
__PACKAGE__->setup;


=head1 NAME

MyApp - Catalyst based application

=head1 SYNOPSIS

    script/myapp_server.pl

=head1 DESCRIPTION

[enter your description here]

=head1 SEE ALSO

L<MyApp::Controller::Root>, L<Catalyst>

=head1 AUTHOR

Doug Scoular

=head1 LICENSE

This library is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

1;

[dscoular@dscoular-lnx MyApp]$ cat lib/MyApp/View/TT.pm
package MyApp::View::TT;

use strict;
use base 'Catalyst::View::TT';

__PACKAGE__->config({
    CATALYST_VAR => 'Catalyst',
    INCLUDE_PATH => [
        MyApp->path_to( 'root', 'src' ),
        MyApp->path_to( 'root', 'lib' )
    ],
    PRE_PROCESS  => 'config/main',
    WRAPPER      => 'site/wrapper',
    ERROR        => 'error.tt2',
    TIMER        => 0
});

=head1 NAME

MyApp::View::TT - Catalyst TTSite View

=head1 SYNOPSIS

See L<MyApp>

=head1 DESCRIPTION

Catalyst TTSite View.

=head1 AUTHOR

Doug Scoular

=head1 LICENSE

This library is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

1;