X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FConfig-Any.git;a=blobdiff_plain;f=lib%2FConfig%2FAny.pm;h=4f9b40113f90dad15e147a473290e774792c7745;hp=c64c12cb648574f6374a73ed80855df22990562f;hb=4efab5582d1ec3acd99a2ffb898bed58d5f2420b;hpb=4ab3432cd53b63f3979ead71525ebcf217825328 diff --git a/lib/Config/Any.pm b/lib/Config/Any.pm index c64c12c..4f9b401 100644 --- a/lib/Config/Any.pm +++ b/lib/Config/Any.pm @@ -1,12 +1,13 @@ package Config::Any; -# $Id: $ -use warnings; + use strict; +use warnings; + use Carp; use Module::Pluggable::Object (); use English qw(-no_match_vars); -our $VERSION = '0.06'; +our $VERSION = '0.09'; =head1 NAME @@ -14,21 +15,21 @@ Config::Any - Load configuration from different file formats, transparently =head1 VERSION -This document describes Config::Any version 0.0.5 +This document describes Config::Any version 0.0.8 =head1 SYNOPSIS use Config::Any; - my $cfg = Config::Any->load_stems({stems => \@filepath_stems, ... }); - # or - my $cfg = Config::Any->load_files({files => \@filepaths, ... }); + my $cfg = Config::Any->load_stems({stems => \@filepath_stems, ... }); + # or + my $cfg = Config::Any->load_files({files => \@filepaths, ... }); - for (@$cfg) { - my ($filename, $config) = each %$_; - $class->config($config); - warn "loaded config from file: $filename"; - } + for (@$cfg) { + my ($filename, $config) = each %$_; + $class->config($config); + warn "loaded config from file: $filename"; + } =head1 DESCRIPTION @@ -50,9 +51,9 @@ configuration formats. =head2 load_files( ) - Config::Any->load_files({files => \@files]}); - Config::Any->load_files({files => \@files, filter => \&filter}); - Config::Any->load_files({files => \@files, use_ext => 1}); + Config::Any->load_files( { files => \@files } ); + Config::Any->load_files( { files => \@files, filter => \&filter } ); + Config::Any->load_files( { files => \@files, use_ext => 1 } ); C attempts to load configuration from the list of files passed in the C parameter, if the file exists. @@ -74,20 +75,24 @@ arrayref of plugin names like C. Its intended use is to allow of a non-standard file extension while forcing it to be offered to a particular parser. It is not compatible with 'use_ext'. +You can supply a C hashref to pass special options to a particular +parser object. Example: + + Config::Any->load_files( { files => \@files, driver_args => { + General => { -LowerCaseNames => 1 } + } ) + =cut sub load_files { - my ($class, $args) = @_; - return unless defined $args; - unless (exists $args->{files}) { - warn "no files specified"; + my ( $class, $args ) = @_; + + unless ( $args && exists $args->{ files } ) { + warn "No files specified!"; return; } - my %load_args = map { $_ => defined $args->{$_} ? $args->{$_} : undef } - qw(filter use_ext force_plugins); - $load_args{files} = [ grep { -f $_ } @{$args->{files}} ]; - return $class->_load(\%load_args); + return $class->_load( $args ); } =head2 load_stems( ) @@ -106,87 +111,87 @@ parameters. Please read the C documentation before using this meth =cut sub load_stems { - my ($class, $args) = @_; + my ( $class, $args ) = @_; return unless defined $args; - unless (exists $args->{stems}) { + unless ( exists $args->{ stems } ) { warn "no stems specified"; return; } - - my %load_args = map { $_ => defined $args->{$_} ? $args->{$_} : undef } - qw(filter use_ext force_plugins); - my $filenames = $class->_stems_to_files($args->{stems}); - $load_args{files} = [ grep { -f $_ } @{$filenames} ]; - return $class->_load(\%load_args); + my %load_args + = map { $_ => defined $args->{ $_ } ? $args->{ $_ } : undef } + qw(filter use_ext force_plugins driver_args); + + $load_args{ files } = $class->_stems_to_files( $args->{ stems } ); + return $class->_load( \%load_args ); } sub _stems_to_files { - my ($class, $stems) = @_; + my ( $class, $stems ) = @_; return unless defined $stems; my @files; - STEM: - for my $s (@$stems) { - EXT: - for my $ext ($class->extensions) { - my $file = "$s.$ext"; - next EXT unless -f $file; - push @files, $file; - last EXT; + for my $s ( @$stems ) { + for my $ext ( $class->extensions ) { + push @files, "$s.$ext"; } } - \@files; + return \@files; } -sub _maphash (@) { map { $_ => 1 } @_ } # sugar +sub _maphash { # syntactic sugar + map { $_ => 1 } @_; +} # this is where we do the real work # it's a private class-method because users should use the interface described # in the POD. sub _load { - my ($class, $args) = @_; - my ($files_ref, $filter_cb, $use_ext, $force_plugins_ref) = - @{$args}{qw(files filter use_ext force_plugins)}; + my ( $class, $args ) = @_; + my ( $files_ref, $filter_cb, $use_ext, $force_plugins_ref ) + = @{ $args }{ qw(files filter use_ext force_plugins) }; croak "_load requires a arrayref of file paths" unless defined $files_ref; - my %files = _maphash @$files_ref; - my %force_plugins = _maphash @$force_plugins_ref; - my $enforcing = keys %force_plugins ? 1 : 0; + my %files = _maphash @$files_ref; + my %force_plugins = _maphash @$force_plugins_ref; + my $enforcing = keys %force_plugins ? 1 : 0; - my $final_configs = []; - my $originally_loaded = {}; + my $final_configs = []; + my $originally_loaded = {}; # perform a separate file loop for each loader for my $loader ( $class->plugins ) { - next if $enforcing && not defined $force_plugins{$loader}; - last unless keys %files; + next if $enforcing && not defined $force_plugins{ $loader }; + last unless keys %files; my %ext = _maphash $loader->extensions; - FILE: - for my $filename (keys %files) { - # use file extension to decide whether this loader should try this file - # use_ext => 1 hits this block - if (defined $use_ext && !$enforcing) { - my $matched_ext = 0; - EXT: - for my $e (keys %ext) { - next EXT unless $filename =~ m{ \. $e \z }xms; - next FILE unless exists $ext{$e}; - $matched_ext = 1; + my ( $loader_class ) = $loader =~ /::([^:]+)$/; + my $driver_args = $args->{ driver_args }{ $loader_class } || {}; + + FILE: + for my $filename ( keys %files ) { + next unless -f $filename; + + # use file extension to decide whether this loader should try this file + # use_ext => 1 hits this block + if ( defined $use_ext && !$enforcing ) { + my $matched_ext = 0; + EXT: + for my $e ( keys %ext ) { + next EXT unless $filename =~ m{ \. $e \z }xms; + next FILE unless exists $ext{ $e }; + $matched_ext = 1; } - next FILE unless $matched_ext; + next FILE unless $matched_ext; } my $config; - eval { - $config = $loader->load( $filename ); - }; + eval { $config = $loader->load( $filename, $driver_args ); }; - next if $EVAL_ERROR; # if it croaked or warned, we can't use it + next if $EVAL_ERROR; # if it croaked or warned, we can't use it next if !$config; - delete $files{$filename}; + delete $files{ $filename }; # post-process config with a filter callback, if we got one $filter_cb->( $config ) if defined $filter_cb; @@ -207,7 +212,7 @@ more information. =cut sub finder { - my $class = shift; + my $class = shift; my $finder = Module::Pluggable::Object->new( search_path => [ __PACKAGE__ ], require => 1 @@ -238,7 +243,7 @@ parameter to those methods. sub extensions { my $class = shift; my @ext = map { $_->extensions } $class->plugins; - return wantarray ? @ext : [@ext]; + return wantarray ? @ext : \@ext; } =head1 DIAGNOSTICS @@ -289,7 +294,7 @@ L. =head1 AUTHOR -Joel Bernstein C<< >> +Joel Bernstein Erataxis@cpan.orgE =head1 CONTRIBUTORS