package Example;
use strict;
use warnings;
use Egg qw/ -Debug
Crypt::CBC
Dispatch::Fast
Debugging
Log
/;
our $VERSION= '0.01';
__PACKAGE__->egg_startup(
title => 'Example',
root => '/path/to/Example',
static_uri => '/',
dir => {
lib => '< $e.root >/lib',
static => '< $e.root >/htdocs',
etc => '< $e.root >/etc',
cache => '< $e.root >/cache',
tmp => '< $e.root >/tmp',
template => '< $e.root >/root',
comp => '< $e.root >/comp',
},
template_path=> ['< $e.dir.template >', '< $e.dir.comp >'],
plugin_crypt_cbc => {
cipher => 'Blowfish',
key => '(abcdef)',
},
);
# Dispatch. ------------------------------------------------
__PACKAGE__->run_modes(
_default => sub {
my($dispatch, $e)= @_;
require Egg::Helper::BlankPage;
$e->response->body( Egg::Helper::BlankPage->out($e) );
},
);
# ----------------------------------------------------------
1;