Catalyst::Utils::class2prefix.pm

{
    use Catalyst::Utils (); 
    no warnings 'redefine';
    sub Catalyst::Utils::class2prefix {
        my $class = shift || ''; 
        my $case  = shift || 0;
        my $prefix;
        if ( $class =~ /^.+?::([MVC]|Model|View|Controller)::(.+)$/ ) { 
            $prefix = $case ? $2 : do {
                $prefix = $2; 
                $prefix =~ s{([A-Z][a-z0-9]+)}{_$1}g;
                $prefix =~ s{([A-Z][A-Z]+)}{_$1}g;
                $prefix =~ s{(^|::)_(_*)([A-Z]+[a-z0-9]*)}{$1$2$3}g;
                lc $prefix;
            };  
            $prefix =~ s{::}{/}g;
        }   
        return $prefix;
    }   
}