X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fpredicate_objects.t;h=9801d9ece72fccd15c966af0239c997ae066c635;hb=6c97ab61b01c2b890ca3aecebef9ef74d07fafc2;hp=b073220f8e16110ab939c5366867b29d26fd3c0b;hpb=456dc2bbf3016f2597cee32e06de13bd06d5eb0f;p=catagits%2FWeb-Simple.git

diff --git a/t/predicate_objects.t b/t/predicate_objects.t
index b073220..9801d9e 100644
--- a/t/predicate_objects.t
+++ b/t/predicate_objects.t
@@ -14,18 +14,20 @@ use Plack::Test;
 
     sub dispatch_request {
         my $self = shift;
-        match_path(qr/(?^:^(\/)$)/), sub {
+        ## sub(/) {
+        match_path(qr/(?-xism:^(\/)$)/), sub {
             $self->show_landing(@_);
         },
-        match_path_strip(qr/(?^:^()(\/.*)$)/) => sub {
+        ## sub(/...) {
+        match_path_strip(qr/(?-xism:^()(\/.*)$)/) => sub {
             match_and
             (
                 match_method('GET'),
-                match_path(qr/(?^:^(\/user(?:\.\w+)?)$)/)
+                match_path(qr/(?-xism:^(\/user(?:\.\w+)?)$)/)
             )  => sub {
                 $self->show_users(@_);
             },
-            match_path(qr/(?^:^(\/user\/([^\/]+?)(?:\.\w+)?)$)/), sub {
+            match_path(qr/(?-xism:^(\/user\/([^\/]+?)(?:\.\w+)?)$)/), sub {
                 match_method('GET') => sub {
                     $self->show_user(@_);
                 },