use Carp;
use Module::Pluggable::Object ();
-our $VERSION = '0.09_01';
+our $VERSION = '0.12';
=head1 NAME
Config::Any - Load configuration from different file formats, transparently
-=head1 VERSION
-
-This document describes Config::Any version 0.09
-
=head1 SYNOPSIS
use Config::Any;
my $cfg = Config::Any->load_files({files => \@filepaths, ... });
for (@$cfg) {
- my ($filename, $config) = each %$_;
+ my ($filename, $config) = %$_;
$class->config($config);
warn "loaded config from file: $filename";
}
my ( $class, $args ) = @_;
croak "_load requires a arrayref of file paths" unless $args->{ files };
- if( !defined $args->{ use_ext } ) {
- warn "use_ext argument was not explicitly set, as of 0.09, this is true by default";
+ my $force = defined $args->{ force_plugins };
+ if ( !$force and !defined $args->{ use_ext } ) {
+ warn
+ "use_ext argument was not explicitly set, as of 0.09, this is true by default";
$args->{ use_ext } = 1;
}
# figure out what plugins we're using
- my $force = defined $args->{ force_plugins };
my @plugins = $force ? @{ $args->{ force_plugins } } : $class->plugins;
# map extensions if we have to
- my( %extension_lut, $extension_re );
+ my ( %extension_lut, $extension_re );
my $use_ext_lut = !$force && $args->{ use_ext };
- if( $use_ext_lut ) {
+ if ( $use_ext_lut ) {
for my $plugin ( @plugins ) {
$extension_lut{ $_ } = $plugin for $plugin->extensions;
}
my @results;
for my $filename ( @{ $args->{ files } } ) {
+
# don't even bother if it's not there
next unless -f $filename;
my @try_plugins = @plugins;
- if( $use_ext_lut ) {
+ if ( $use_ext_lut ) {
$filename =~ m{\.($extension_re)\z};
next unless $1;
@try_plugins = $extension_lut{ $1 };
}
for my $loader ( @try_plugins ) {
- my @configs = eval { $loader->load( $filename, $loader_args{ $loader } ); };
+ next unless $loader->is_supported;
+ my @configs
+ = eval { $loader->load( $filename, $loader_args{ $loader } ); };
# fatal error if we used extension matching
croak "Error parsing file: $filename" if $@ and $use_ext_lut;
$args->{ filter }->( $_ ) for @configs;
}
- push @results, { $filename => @configs == 1 ? $configs[ 0 ] : \@configs };
+ push @results,
+ { $filename => @configs == 1 ? $configs[ 0 ] : \@configs };
last;
}
}