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 class2prefix($class);
43 Returns the prefix for class.
48 my $class = shift || '';
50 if ( $class =~ /^.*::([MVC]|Model|View|Controller)?::(.*)$/ ) {
52 $prefix =~ s/\:\:/\//g;
61 Sebastian Riedel, C<sri@cpan.org>
65 This program is free software, you can redistribute it and/or modify it under
66 the same terms as Perl itself.