X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FUtils.pm;h=8fe7043375a4765ff774b165ecbe94b0d975152c;hb=1f9cb7c179c8e4077d99badf31f3a356efdc809c;hp=c0eeefe13f3b3c22c9e5f56ac3fe8627bbe993f0;hpb=05850e06de30638a8aca661a2c38fa45493fc6bd;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Utils.pm b/lib/Catalyst/Utils.pm index c0eeefe..8fe7043 100644 --- a/lib/Catalyst/Utils.pm +++ b/lib/Catalyst/Utils.pm @@ -1,7 +1,6 @@ package Catalyst::Utils; use strict; -use attributes (); use Catalyst::Exception; use File::Spec; use HTTP::Request; @@ -37,14 +36,6 @@ sub appprefix { return $class; } -=item attrs($coderef) - -Returns attributes for coderef in a arrayref - -=cut - -sub attrs { attributes::get( $_[0] ) || [] } - =item class2appclass($class); Returns the appclass for class. @@ -207,25 +198,6 @@ sub prefix { return $name; } -=item reflect_actions($class); - -Returns an arrayref containing all actions of a component class. - -=cut - -sub reflect_actions { - my $class = shift; - my $actions = []; - eval '$actions = $class->_action_cache'; - - if ($@) { - Catalyst::Exception->throw( message => - qq/Couldn't reflect actions of component "$class", "$@"/ ); - } - - return $actions; -} - =item request($request) Returns a HTTP::Request object.