allow matching of empty path with the spec ~

diff --git a/lib/Web/Dispatch/Parser.pm b/lib/Web/Dispatch/Parser.pm
index d77d418..213edb0 100644 (file)
--- a/lib/Web/Dispatch/Parser.pm
+++ b/lib/Web/Dispatch/Parser.pm
@@ -84,6 +84,11 @@ sub _parse_spec_section {
   my ($self) = @_;
   for ($_[1]) {
 
+    # ~
+
+    /\G~/gc and
+      return match_path('^$');
+
     # GET POST PUT HEAD ...
 
     /\G([A-Z]+)/gc and

diff --git a/t/dispatch_parser.t b/t/dispatch_parser.t
index dfaa026..8b6f4ab 100644 (file)
--- a/t/dispatch_parser.t
+++ b/t/dispatch_parser.t
@@ -308,6 +308,23 @@ my $dp = Web::Dispatch::Parser->new;
 }
 
 {
+  my $match = '~';
+  my $sub = $dp->parse($match);
+
+  is_deeply(
+    [ $sub->({ PATH_INFO => '/foo' }) ],
+    [],
+    "$match does not match /foo"
+  );
+
+  is_deeply(
+    [ $sub->({ PATH_INFO => '' }) ],
+    [ {} ],
+    "$match matches empty path with empty env"
+  );
+}
+
+{
   my $match = '/foo...';
   my $sub = $dp->parse($match);