1 package Config::Any::Perl;
6 use base 'Config::Any::Base';
12 Config::Any::Perl - Load Perl config files
16 Loads Perl files. Example:
20 'Controller::Foo' => {
32 return an array of valid extensions (C<pl>, C<perl>).
42 Attempts to load C<$file> as a Perl file.
50 my( $exception, $content );
53 # previously this would load based on . being in @INC, and wouldn't
54 # trigger taint errors even if '.' probably should have been considered
55 # tainted. untaint for backwards compatibility.
56 my ($cwd) = Cwd::cwd() =~ /\A(.*)\z/s;
57 $content = do File::Spec->rel2abs($file, $cwd);
61 die $exception if $exception;
68 Brian Cassidy <bricas@cpan.org>
70 =head1 COPYRIGHT AND LICENSE
72 Copyright 2006-2016 by Brian Cassidy
74 This library is free software; you can redistribute it and/or modify
75 it under the same terms as Perl itself.
83 =item * L<Config::Any>