add debug information for the new http method support

[catagits/Catalyst-Runtime.git] / lib / Catalyst / DispatchType / Chained.pm

diff --git a/lib/Catalyst/DispatchType/Chained.pm b/lib/Catalyst/DispatchType/Chained.pm
index 5ae5152..2b27ec4 100644 (file)
--- a/lib/Catalyst/DispatchType/Chained.pm
+++ b/lib/Catalyst/DispatchType/Chained.pm
@@ -127,6 +127,9 @@ sub list {
             unless ($p eq $parents[0]) {
                 $name = "-> ${name}";
             }
+            if (defined(my $extra = $p->list_extra_info->{HTTP_METHODS})) {
+                $name .= ' ('.join(', ', @$extra).')';
+            }
             push(@rows, [ '', $name ]);
         }
         push(@rows, [ '', (@rows ? "=> " : '')."/${endpoint}" ]);