From 78fcbf54a4305e1ee6c3a105f91af40c7ea0a62a Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Tue, 8 Jun 2010 15:22:36 +0200
Subject: switch to MX::Declare; rename some roles and dispatcher

---
 lib/Net/HTTP/Console/Dispatcher.pm | 27 ++++++++++++++-------------
 1 file changed, 14 insertions(+), 13 deletions(-)

(limited to 'lib/Net/HTTP/Console/Dispatcher.pm')

diff --git a/lib/Net/HTTP/Console/Dispatcher.pm b/lib/Net/HTTP/Console/Dispatcher.pm
index 052e493..057f2d5 100644
--- a/lib/Net/HTTP/Console/Dispatcher.pm
+++ b/lib/Net/HTTP/Console/Dispatcher.pm
@@ -1,21 +1,22 @@
 package Net::HTTP::Console::Dispatcher;
 
-use Moose::Role;
+use MooseX::Declare;
 
-has application => (is => 'rw', isa => 'Net::HTTP::Console');
+role Net::HTTP::Console::Dispatcher {
 
-requires qw/dispatch pattern/;
+    has application => (is => 'rw', isa => 'Net::HTTP::Console');
 
-around dispatch => sub {
-    my $orig = shift;
-    my $self = shift;
-    my $in   = shift;
+    requires qw/dispatch pattern/;
 
-    if (my $r = $self->pattern($in)) {
-        return $self->$orig($r);
-    }else{
-        return undef;
-    }
-};
+    around dispatch ($input) {
+        if (my $r = $self->pattern($input)) {
+            return $self->$orig($r);
+        }
+        else {
+            return undef;
+        }
+    };
+
+}
 
 1;
-- 
cgit v1.2.3