use Data::Visitor::Callback;
use Catalyst::Utils ();
-our $VERSION = '0.24';
+our $VERSION = '0.29';
=head1 NAME
my $appname = ref $c || $c;
my $prefix = Catalyst::Utils::appprefix( $appname );
- my $path = Catalyst::Utils::env_value( $c, 'CONFIG' )
+ my $path = Catalyst::Utils::env_value( $appname, 'CONFIG' )
|| $c->config->{ 'Plugin::ConfigLoader' }->{ file }
|| $c->path_to( $prefix );
- my ( $extension ) = ( $path =~ m{\.(.{1,4})$} );
+ my ( $extension ) = ( $path =~ m{\.([^/\.]{1,4})$} );
if ( -d $path ) {
$path =~ s{[\/\\]$}{};
=head2 config_substitutions( $value )
-This method substitutes macros found with calls to a function. There are three
-default macros:
+This method substitutes macros found with calls to a function. There are a
+number of default macros:
=over 4
=head1 COPYRIGHT AND LICENSE
-Copyright 2006-2009 by Brian Cassidy
+Copyright 2006-2010 by Brian Cassidy
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.