fix bug: correct parent of match on sub-subroute

vti · Jan 3, 2016 · e7e6b72 · e7e6b72
1 parent 33a0701
commit e7e6b72
Show file tree

Hide file tree

Showing 3 changed files with 24 additions and 4 deletions.
diff --git a/lib/Routes/Tiny/Match.pm b/lib/Routes/Tiny/Match.pm
@@ -13,7 +13,7 @@ sub new {
     $self->{name}      = $params{name};
     $self->{arguments} = $params{arguments};
     $self->{captures}  = $params{captures};
-    $self->{parent}    = undef;
+    $self->{parent}    = $params{parent};
 
     return $self;
 }

diff --git a/lib/Routes/Tiny/Pattern.pm b/lib/Routes/Tiny/Pattern.pm
@@ -75,14 +75,14 @@ sub match {
     my $match = $self->_build_match(
         name      => $self->name,
         arguments => $self->arguments,
-        captures  => $captures
+        captures  => $captures,
+        parent    => $args{parent}
     );
 
     if ($self->{subroutes}) {
         my $parent = $match;
         my $tail = substr($path, length $&);
-        $match = $self->{subroutes}->match($tail, %args);
-        $match->{parent} = $parent if $match;
+        $match = $self->{subroutes}->match($tail, %args, parent => $parent);
     }
 
     return $match;

diff --git a/t/subroutes.t b/t/subroutes.t
@@ -72,4 +72,24 @@ subtest 'pass params to subroutes' => sub {
     ok $ro->match('/subroute/foo', method => 'POST');
 };
 
+subtest 'sub-subroutes' => sub {
+  my $r0 = Routes::Tiny->new;
+  $r0->mount('/toplevel/:topic', $ro);
+
+  my $match = $r0->match('/toplevel/rainbows/r3/5/bar/7/');
+
+  ok($match);
+  if($match) {
+    my $parent = $match->parent;
+    ok($parent);
+    is($parent->captures->{parent_id}, 5);
+    if($parent) {
+      my $grandparent = $parent->parent;
+      ok($grandparent);
+      is($grandparent->captures->{topic}, 'rainbows');
+    }
+  }
+};
+
+
 done_testing;