5.24 2005-06-03 02:30:00
- Prettify home path by resolving '..' (Andy Grundman)
- Improved helper templates a bit, new naming scheme for tests...
+ - Added support for case sensitivity, MyApp->config->{case_sensitive}
5.23 2005-06-03 02:30:00
- added support for non Catalyst::Base components to live in namespace
unless ($namespace) {
if ( my $result = $c->get_action($action) ) {
- $namespace =
- Catalyst::Utils::class2prefix( $result->[0]->[0]->[0] );
+ $namespace = Catalyst::Utils::class2prefix( $result->[0]->[0]->[0],
+ $c->config->{case_sensitive} );
}
}
$command =~ s/^\///;
}
- else { $namespace = Catalyst::Utils::class2prefix($caller) || '/' }
+ else {
+ $namespace =
+ Catalyst::Utils::class2prefix( $caller, $c->config->{case_sensitive} )
+ || '/';
+ }
my $results = $c->get_action( $command, $namespace );
sub set_action {
my ( $c, $method, $code, $namespace, $attrs ) = @_;
- my $prefix = Catalyst::Utils::class2prefix($namespace) || '';
+ my $prefix =
+ Catalyst::Utils::class2prefix( $namespace, $c->config->{case_sensitive} )
+ || '';
my %flags;
for my $attr ( @{$attrs} ) {
# We use a tree
$self->tree( Tree::Simple->new( 0, Tree::Simple->ROOT ) );
-
+
for my $comp ( keys %{ $self->components } ) {
-
- # We only setup components that inherit from Catalyst::Base
+
+ # We only setup components that inherit from Catalyst::Base
next unless $comp->isa('Catalyst::Base');
for my $action ( @{ Catalyst::Utils::reflect_actions($comp) } ) {
}
}
-
+
return unless $self->debug;
my $actions = $self->actions;
return $class;
}
-=item class2prefix($class);
+=item class2prefix( $class, $case );
Returns the prefix for class.
sub class2prefix {
my $class = shift || '';
+ my $case = shift || 0;
my $prefix;
if ( $class =~ /^.*::([MVC]|Model|View|Controller)?::(.*)$/ ) {
- $prefix = lc $2;
+ $prefix = $case ? $2 : lc $2;
$prefix =~ s/\:\:/\//g;
}
return $prefix;