[Catalyst-commits] r11699 - Catalyst-View-TD/trunk/lib/Catalyst/View

[theory at dev.catalyst.perl.org]

Author: theory
Date: 2009-10-31 19:01:25 +0000 (Sat, 31 Oct 2009)
New Revision: 11699

Modified:
   Catalyst-View-TD/trunk/lib/Catalyst/View/TD.pm
Log:
FooBar maps to "foobar", not "foo_bar". This corresponds to how controllers map to URIs.

Modified: Catalyst-View-TD/trunk/lib/Catalyst/View/TD.pm
===================================================================
--- Catalyst-View-TD/trunk/lib/Catalyst/View/TD.pm	2009-10-30 18:13:57 UTC (rev 11698)
+++ Catalyst-View-TD/trunk/lib/Catalyst/View/TD.pm	2009-10-31 19:01:25 UTC (rev 11699)
@@ -107,10 +107,7 @@
 
         # Mix it in.
         (my $sub = $mod) =~ s/\Q$root\E:://;
-        my $path = join '/', map {
-            s{(?!^)([[:upper:]])+}{_$1}g; lc
-        } split /::/ => $sub;
-        $mod->alias($root, $path);
+        $mod->alias($root, join '/', map { lc } split /::/ => $sub);
     }
     return [$root];
 }