Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

testing out the new logging facilities

  • Loading branch information...
commit 79a9b303bd940a189996fd440f919be5c091b780 1 parent 49b4bcb
@beppu authored
Showing with 5 additions and 1 deletion.
  1. +2 −0  MANIFEST
  2. +1 −1  bin/squatting
  3. +2 −0  eg/Example/Controllers.pm
View
2  MANIFEST
@@ -10,6 +10,7 @@ eg/Chat.pm
eg/Example.pm
eg/Example/Controllers.pm
eg/Example/Views.pm
+eg/HTTPAuth.pm
eg/jquery.js
eg/MicroWiki.pm
eg/OpenID/Consumer.pm
@@ -34,6 +35,7 @@ lib/Squatting/On/MP19.pm
lib/Squatting/On/MP20.pm
lib/Squatting/View.pm
lib/Squatting/With/AccessTrace.pm
+lib/Squatting/With/Log.pm
Makefile.PL
MANIFEST This list of files
MANIFEST.SKIP
View
2  bin/squatting
@@ -108,7 +108,7 @@ if ($app) {
$pirl->set_package($app."::Controllers");
$pirl->run;
} else {
- $app->import("With::AccessTrace", "On::Continuity");
+ $app->import("With::AccessTrace", "With::Log", "On::Continuity");
$app->init;
$app->continue(
port => $_{port},
View
2  eg/Example/Controllers.pm
@@ -22,6 +22,7 @@ our @C = (
if (%$input) {
$v->{sum} = add(values %$input);
}
+ $self->log->debug('home sweet home');
$self->render('home')
}
),
@@ -31,6 +32,7 @@ our @C = (
get => sub {
my ($self, $name, $format) = @_;
$format ||= 'html';
+ $self->log->info("format is $format");
my $v = $self->v;
$v->{name} = $name;
$v->{controller} = $self->name;
Please sign in to comment.
Something went wrong with that request. Please try again.