X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FUtils.pm;h=785c60792be7ee508207efef296f52cc5f2d1751;hb=2d90477f073b682da61622da7c0330bfd336d0fa;hp=3f44898a773a70367425760a4fc022b8d3e730df;hpb=84cf74e721d712e23a1cbae062a582defb3439ea;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Utils.pm b/lib/Catalyst/Utils.pm index 3f44898..785c607 100644 --- a/lib/Catalyst/Utils.pm +++ b/lib/Catalyst/Utils.pm @@ -29,6 +29,8 @@ sub attrs { attributes::get( $_[0] ) || [] } Returns a prefixed action. + MyApp::C::Foo::Bar, yada becomes /foo/bar/yada + =cut sub prefix { @@ -42,6 +44,9 @@ sub prefix { Returns the appclass for class. + MyApp::C::Foo::Bar becomes MyApp + My::App::C::Foo::Bar becomes My::App + =cut sub class2appclass { @@ -57,6 +62,9 @@ sub class2appclass { Returns the classprefix for class. + MyApp::C::Foo::Bar becomes MyApp::C + My::App::C::Foo::Bar becomes My::App::C + =cut sub class2classprefix { @@ -72,6 +80,8 @@ sub class2classprefix { Returns the classsuffix for class. + MyApp::C::Foo::Bar becomes C::Foo::Bar + =cut sub class2classsuffix { @@ -85,6 +95,8 @@ sub class2classsuffix { Returns the prefix for class. + My::App::C::Foo::Bar becomes /foo/bar + =cut sub class2prefix {