1 package Catalyst::Plugin::ConfigLoader::INI;
\r
8 Catalyst::Plugin::ConfigLoader::INI - Load INI config files
\r
12 Loads INI files. Example:
\r
16 [Controller::Config]
\r
21 =head2 load( $file )
\r
23 Attempts to load C<$file> as an INI file.
\r
29 my $confpath = shift;
\r
32 if( $confpath =~ /\.(.{3})$/ ) {
\r
33 return unless $1 eq 'ini';
\r
37 $file = "$confpath.ini";
\r
40 return unless -f $file;
\r
42 require Config::Tiny;
\r
43 my $config = Config::Tiny->read( $file );
\r
44 my $main = delete $config->{ _ };
\r
45 $config->{ $_ } = $main->{ $_ } for keys %$main;
\r
54 =item * Brian Cassidy E<lt>bricas@cpan.orgE<gt>
\r
58 =head1 COPYRIGHT AND LICENSE
\r
60 Copyright 2006 by Brian Cassidy
\r
62 This library is free software; you can redistribute it and/or modify
\r
63 it under the same terms as Perl itself.
\r