From 58a447a99980b9921d498444a72f1705823a049e Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 17 Feb 2011 21:43:43 -0600
Subject: actually, make this a bit more explicit

---
 lib/Narwhal.pm                         | 2 +-
 lib/Narwhal/RouteBuilder/HTTPMethod.pm | 5 +++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/lib/Narwhal.pm b/lib/Narwhal.pm
index aae8a25..4437027 100644
--- a/lib/Narwhal.pm
+++ b/lib/Narwhal.pm
@@ -39,7 +39,7 @@ router as {
     route '/page/:page_name' => 'wiki.page', (
         page_name => { isa => 'Str' },
     );
-    route '/edit/:page_name' => 'edit', (
+    route '/edit/:page_name' => 'http-method:edit', (
         page_name => { isa => 'Str' },
     );
 }, (
diff --git a/lib/Narwhal/RouteBuilder/HTTPMethod.pm b/lib/Narwhal/RouteBuilder/HTTPMethod.pm
index fb2f124..9631616 100644
--- a/lib/Narwhal/RouteBuilder/HTTPMethod.pm
+++ b/lib/Narwhal/RouteBuilder/HTTPMethod.pm
@@ -9,9 +9,10 @@ sub import {
         class      => __PACKAGE__,
         route_spec => sub {
             my $spec = shift;
-            return if ref($spec) || $spec !~ /^\w+$/;
+            return if ref($spec);
+            return unless $spec =~ /^http-method:(\w+)$/;
             return {
-                action => $spec,
+                action => $1,
             };
         },
     );
-- 
cgit v1.2.3-54-g00ecf