1 package Catalyst::Utils;
8 Catalyst::Utils - The Catalyst Utils
22 Returns attributes for coderef in a arrayref
26 sub attrs { attributes::get( $_[0] ) || [] }
28 =item prefix($class, $name);
30 Returns a prefixed action.
35 my ( $class, $name ) = @_;
36 my $prefix = &class2prefix($class);
37 $name = "$prefix/$name" if $prefix;
41 =item class2appclass($class);
43 Returns the appclass for class.
48 my $class = shift || '';
50 if ( $class =~ /^(.*)::([MVC]|Model|View|Controller)?::.*$/ ) {
56 =item class2classprefix($class);
58 Returns the classprefix for class.
62 sub class2classprefix {
63 my $class = shift || '';
65 if ( $class =~ /^(.*::[MVC]|Model|View|Controller)?::.*$/ ) {
71 =item class2classsuffix($class);
73 Returns the classsuffix for class.
77 sub class2classsuffix {
78 my $class = shift || '';
79 my $prefix = class2appclass($class) || '';
80 $class =~ s/$prefix\:\://;
84 =item class2prefix($class);
86 Returns the prefix for class.
91 my $class = shift || '';
93 if ( $class =~ /^.*::([MVC]|Model|View|Controller)?::(.*)$/ ) {
95 $prefix =~ s/\:\:/\//g;
104 Sebastian Riedel, C<sri@cpan.org>
108 This program is free software, you can redistribute it and/or modify it under
109 the same terms as Perl itself.