summary refs log tree commit diff
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2010-06-20 13:52:12 +0200
committerfranck cuny <franck@lumberjaph.net>2010-06-20 13:52:12 +0200
commite525f670502d5f527c2997c83cd06397aa5fdc80 (patch)
treee88773775cd3003ad81840bf9459e10ae0f792d6
parentremove trailing \n in formated message (diff)
downloaddancer-logger-psgi-e525f670502d5f527c2997c83cd06397aa5fdc80.tar.gz
prepare release
-rw-r--r--Changes3
-rw-r--r--dist.ini2
-rw-r--r--t/01_basic.t21
3 files changed, 14 insertions, 12 deletions
diff --git a/Changes b/Changes
index bab3457..aa78763 100644
--- a/Changes
+++ b/Changes
@@ -1,4 +1,7 @@
 Revision history for Perl extension Dancer::Logger::PSGI
 
+0.02    Sun 20 Jun 2010 01:26:57 PM CEST  
+        - better log message [Alexis Sukrieh]
+
 0.01    Sat Apr 17 12:38:16 2010
         - original version
diff --git a/dist.ini b/dist.ini
index 0f5c737..160701d 100644
--- a/dist.ini
+++ b/dist.ini
@@ -3,7 +3,7 @@ author = franck cuny <franck@lumberjaph.net>
 license = Perl_5
 copyright_holder = franck cuny
 copyright_year = 2010
-version = 0.01
+version = 0.02
 
 [@Git]
 [@Filter]
diff --git a/t/01_basic.t b/t/01_basic.t
index 86de374..a91f923 100644
--- a/t/01_basic.t
+++ b/t/01_basic.t
@@ -3,9 +3,9 @@ use strict;
 use warnings;
 
 plan skip_all => 'LWP::UserAgent is needed to run this test'
-    unless Dancer::ModuleLoader->load('LWP::UserAgent');
+  unless Dancer::ModuleLoader->load('LWP::UserAgent');
 plan skip_all => 'Plack::Middleware::ConsoleLogger is needed to run this test'
-    unless Dancer::ModuleLoader->load('Plack::Middleware::ConsoleLogger');
+  unless Dancer::ModuleLoader->load('Plack::Middleware::ConsoleLogger');
 
 use Plack::Loader;
 use Plack::Builder;
@@ -14,7 +14,7 @@ use Test::TCP;
 Test::TCP::test_tcp(
     client => sub {
         my $port = shift;
-        my $ua = LWP::UserAgent->new;
+        my $ua   = LWP::UserAgent->new;
 
         my $request = HTTP::Request->new(GET => "http://127.0.0.1:$port/");
         my $res = $ua->request($request);
@@ -24,26 +24,25 @@ Test::TCP::test_tcp(
     server => sub {
         my $port = shift;
 
-        use Dancer;
-        use Dancer::Config 'setting';
+        use Dancer ':syntax';
 
         setting apphandler => 'PSGI';
-        setting port => $port;
+        setting port       => $port;
         setting access_log => 0;
-    setting logger => "PSGI";
+        setting logger     => "PSGI";
 
         get '/' => sub {
             warning "this is a warning";
-        return "<html><body>this is a test</body></html>";
+            return "<html><body>this is a test</body></html>";
         };
 
         my $app = sub {
-            my $env = shift;
+            my $env     = shift;
             my $request = Dancer::Request->new($env);
             Dancer->dance($request);
         };
-    $app = builder { enable "ConsoleLogger"; $app };
-    Plack::Loader->auto(port => $port)->run($app);
+        $app = builder { enable "ConsoleLogger"; $app };
+        Plack::Loader->auto(port => $port)->run($app);
     },
 );