use strict;
use warnings;
+use base 'Config::Any::Base';
+
=head1 NAME
Config::Any::General - Load Config::General files
my $args = shift || {};
# work around bug (?) in Config::General
-# return if $class->_test_perl($file);
+ # return if $class->_test_perl($file);
- $args->{-ConfigFile} = $file;
+ $args->{ -ConfigFile } = $file;
require Config::General;
my $configfile = Config::General->new( %$args );
my $config = { $configfile->getall };
-
+
return $config;
}
# developer.
sub _test_perl {
- my ($class, $file) = @_;
+ my ( $class, $file ) = @_;
my $is_perl_src;
eval { $is_perl_src = do "$file"; };
- delete $INC{$file}; # so we don't screw stuff later on
+ delete $INC{ $file }; # so we don't screw stuff later on
return defined $is_perl_src;
}
-=head1 AUTHOR
+=head2 requires_all_of( )
-=over 4
+Specifies that this module requires L<Config::General> in order to work.
-=item * Brian Cassidy E<lt>bricas@cpan.orgE<gt>
+=cut
-=back
+sub requires_all_of { 'Config::General' }
-=head1 CONTRIBUTORS
+=head1 AUTHOR
-=over 4
+Brian Cassidy E<lt>bricas@cpan.orgE<gt>
-=item * Joel Bernstein C<< <rataxis@cpan.org> >>
+=head1 CONTRIBUTORS
-=back
+Joel Bernstein C<< <rataxis@cpan.org> >>
=head1 COPYRIGHT AND LICENSE
-Copyright 2006 by Brian Cassidy
+Copyright 2006-2010 by Brian Cassidy
Portions Copyright 2006 Portugal Telecom