X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FWeb%2FDispatch%2FParser.pm;fp=lib%2FWeb%2FDispatch%2FParser.pm;h=a4c2640b27cc4825194c3055db8de801b47fba5a;hb=e954644cda6c101ac4ccb3b5753c249aaf79d5c8;hp=92aa9b61cbbf9b635a29b755edcd889764af082b;hpb=ce573717455fc7127db16207de0342c65cc00ad5;p=catagits%2FWeb-Simple.git

diff --git a/lib/Web/Dispatch/Parser.pm b/lib/Web/Dispatch/Parser.pm
index 92aa9b6..a4c2640 100644
--- a/lib/Web/Dispatch/Parser.pm
+++ b/lib/Web/Dispatch/Parser.pm
@@ -86,7 +86,7 @@ sub _parse_spec_section {
     # GET POST PUT HEAD ...
 
     /\G([A-Z]+)/gc and
-      return $self->_http_method_match($_, $1);
+      return match_method($1);
 
     # /...
 
@@ -96,7 +96,7 @@ sub _parse_spec_section {
     # .* and .html
 
     /\G\.(\*|\w+)/gc and
-      return $self->_url_extension_match($_, $1);
+      return match_extension($1);
 
     # (...)
 
@@ -119,11 +119,6 @@ sub _parse_spec_section {
   return; # () will trigger the blam in our caller
 }
 
-sub _http_method_match {
-  my ($self, $str, $method) = @_;
-  match_method($method);
-}
-
 sub _url_path_match {
   my ($self) = @_;
   for ($_[1]) {
@@ -171,11 +166,6 @@ sub _url_path_segment_match {
   return ();
 }
 
-sub _url_extension_match {
-  my ($self, $str, $extension) = @_;
-  match_extension($extension);
-}
-
 sub _parse_param_handler {
   my ($self, $spec, $type) = @_;