[Catalyst-commits] r6726 - trunk/Config-Any/lib/Config

[bricas at dev.catalyst.perl.org]

Author: bricas
Date: 2007-08-23 16:01:09 +0100 (Thu, 23 Aug 2007)
New Revision: 6726

Modified:
   trunk/Config-Any/lib/Config/Any.pm
Log:
doc + fetch driver_args for load_stems()

Modified: trunk/Config-Any/lib/Config/Any.pm
===================================================================
--- trunk/Config-Any/lib/Config/Any.pm	2007-08-23 14:33:42 UTC (rev 6725)
+++ trunk/Config-Any/lib/Config/Any.pm	2007-08-23 15:01:09 UTC (rev 6726)
@@ -50,7 +50,7 @@
 
 =head2 load_files( )
 
-    Config::Any->load_files({files => \@files]});
+    Config::Any->load_files({files => \@files});
     Config::Any->load_files({files => \@files, filter  => \&filter});
     Config::Any->load_files({files => \@files, use_ext => 1});
 
@@ -74,6 +74,13 @@
 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<driver_args> 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 {
@@ -114,7 +121,7 @@
     }
         
     my %load_args = map { $_ => defined $args->{$_} ? $args->{$_} : undef } 
-        qw(filter use_ext force_plugins);
+        qw(filter use_ext force_plugins driver_args);
 
     my $filenames = $class->_stems_to_files($args->{stems});
     $load_args{files} = [ grep { -f $_ } @{$filenames} ];