cvsuser 04/02/27 06:21:21
Modified: App-Context/lib/App/Conf File.pm
Log:
add .yaml as std file type, change Dumper->Perl, XMLSimple->Xml
Revision Changes Path
1.7 +7 -4 p5ee/App-Context/lib/App/Conf/File.pm
Index: File.pm
===================================================================
RCS file: /cvs/public/p5ee/App-Context/lib/App/Conf/File.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -w -r1.6 -r1.7
--- File.pm 2 Feb 2004 22:18:53 -0000 1.6
+++ File.pm 27 Feb 2004 14:21:21 -0000 1.7
@@ -1,10 +1,10 @@
#############################################################################
-## $Id: File.pm,v 1.6 2004/02/02 22:18:53 spadkins Exp $
+## $Id: File.pm,v 1.7 2004/02/27 14:21:21 spadkins Exp $
#############################################################################
package App::Conf::File;
-$VERSION = do { my @r=(q$Revision: 1.6 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.7 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use App;
use App::Conf;
@@ -110,13 +110,13 @@
$serializer_class = ""; # don't bother with a serializer
}
elsif ($conf_type eq "perl") {
- $serializer_class = "App::Serializer::Dumper";
+ $serializer_class = "App::Serializer::Perl";
}
elsif ($conf_type eq "stor") {
$serializer_class = "App::Serializer::Storable";
}
elsif ($conf_type eq "xml") {
- $serializer_class = "App::Serializer::XMLSimple";
+ $serializer_class = "App::Serializer::Xml";
}
elsif ($conf_type eq "ini") {
$serializer_class = "App::Serializer::Ini";
@@ -126,6 +126,9 @@
}
elsif ($conf_type eq "conf") {
$serializer_class = "App::Serializer::Properties";
+ }
+ elsif ($conf_type eq "yaml") {
+ $serializer_class = "App::Serializer::Yaml";
}
elsif ($conf_type) {
my $serializer = ucfirst($conf_type);
