Changeset 10454 for lang/perl/HTTPx-Dispatcher

Timestamp:

04/25/08 20:55:44 (5 years ago)

Author:

tokuhirom

Message:

うわー。仕様勘違いしまくってた。あとでちゃんとテストかく。これじゃ Apache->uri でしかつかえないよ。

Location:

lang/perl/HTTPx-Dispatcher/trunk

Files:

• lib/HTTPx/Dispatcher/Rule.pm (modified) (1 diff)
• t/01_simple.t (modified) (2 diffs)

lang/perl/HTTPx-Dispatcher/trunk/lib/HTTPx/Dispatcher/Rule.pm

@@ -39 +39 @@
     my ($self, $req) = @_;
     croak "request required" unless blessed $req;
-    my $uri = $req->uri;
+
+    my $uri = ref($req->uri) ? $req->uri->path : $req->uri;
     $uri =~ s!^/+!!;
-    $uri =~ s!\?.+!!;
 
     return unless $self->_condition_check( $req );

lang/perl/HTTPx-Dispatcher/trunk/t/01_simple.t

@@ -26 +26 @@
 
     my $method = $input->{method} || 'GET';
-    my $res = $pkg->match(HTTP::Request->new($method, $input->{uri}));
+    my $res = $pkg->match(HTTP::Request->new($method, "http://example.com/$input->{uri}"));
     $res = ((not defined $res) ? 'undef' : YAML::Dump($res));
     $res =~ s/^---\n//;
@@ -32 +32 @@
 }
 
-
 __END__
 
 ===
 --- input
-src: ''
+src: connect '', { controller => 'Root', action => 'index' }
 uri: /
---- expected: undef
+--- expected
+action: index
+args: {}
+controller: Root
 
 ===