[svn:p5ee] r6000 - p5ee/trunk/App-Context/lib/App/Serializer

[spadkins]

Author: spadkins
Date: Tue May  2 06:43:59 2006
New Revision: 6000

Modified:
   p5ee/trunk/App-Context/lib/App/Serializer/Perl.pm

Log:
added an {indent} option so that you can get one-line (indent=0) serializations

Modified: p5ee/trunk/App-Context/lib/App/Serializer/Perl.pm
==============================================================================
--- p5ee/trunk/App-Context/lib/App/Serializer/Perl.pm   (original)
+++ p5ee/trunk/App-Context/lib/App/Serializer/Perl.pm   Tue May  2 06:43:59 2006
@@ -53,7 +53,9 @@
     my ($d, $perl);
     
     $d = Data::Dumper->new([ $data ], [ "data" ]);
-    $d->Indent(1);
+    my $indent = $self->{indent};
+    $indent = 1 if (!defined $indent);
+    $d->Indent($indent);
     $perl = $d->Dump();
 
     return $perl;