1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
use strict;
use warnings;
package Ox::WebMail;
use vars '$VERSION';
$VERSION = '0.01';
use Catalyst qw/-Debug/;
Ox::WebMail->config(
name => 'OxWebMail',
root => $ENV{DOCUMENT_ROOT},
);
Ox::WebMail->setup;
sub default : Private {
my ($self, $config) = @_;
$config->res->output('Congratulations, Ox::WebMail is on Catalyst!');
}
1;
welchen Vorteil hat '-Debug' bzw. wann seh ich die Auswirkungen?