X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FUtils.pm;h=05248fc5824af0e647ee7637260ed917cd715afa;hb=1b79e1994c40fc525b4a84c900a5c95ffd4a2f8a;hp=22675a9fbd519d875ff29d4bbe3f06ca40525579;hpb=db575fe81b23c74267b50495a881796f6cee7795;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Utils.pm b/lib/Catalyst/Utils.pm index 22675a9..05248fc 100644 --- a/lib/Catalyst/Utils.pm +++ b/lib/Catalyst/Utils.pm @@ -8,8 +8,8 @@ use Path::Class; use URI; use Carp qw/croak/; use Cwd; + use String::RewritePrefix; -use Moose::Util qw/find_meta/; use namespace::clean; @@ -49,19 +49,6 @@ sub appprefix { sub class2appclass { my $class = shift || ''; - - # Special move to deal with components which are anon classes. - # Specifically, CX::Component::Traits c072fb2 - my $meta = find_meta($class); - if ($meta) { - while ($meta->is_anon_class) { - my @superclasses = $meta->superclasses; - return if scalar(@superclasses) > 1; # Fail silently, MI, can't deal.. - $class = $superclasses[0]; - $meta = find_meta($class); - } - } - my $appname = ''; if ( $class =~ /^(.+?)::([MVC]|Model|View|Controller)::.+$/ ) { $appname = $1;