[Catalyst-commits] r7277 - trunk/examples/ConfigEg/lib/ConfigEg/Model

[jshirley at dev.catalyst.perl.org]

Author: jshirley
Date: 2007-12-12 01:32:37 +0000 (Wed, 12 Dec 2007)
New Revision: 7277

Modified:
   trunk/examples/ConfigEg/lib/ConfigEg/Model/Bar.pm
   trunk/examples/ConfigEg/lib/ConfigEg/Model/Foo.pm
Log:
Better print line


Modified: trunk/examples/ConfigEg/lib/ConfigEg/Model/Bar.pm
===================================================================
--- trunk/examples/ConfigEg/lib/ConfigEg/Model/Bar.pm	2007-12-12 01:31:35 UTC (rev 7276)
+++ trunk/examples/ConfigEg/lib/ConfigEg/Model/Bar.pm	2007-12-12 01:32:37 UTC (rev 7277)
@@ -6,6 +6,9 @@
 
 use Data::Dump qw(dump);
 
+__PACKAGE__->config( 'hello' => 'world ' );
+
+    
 =head1 NAME
 
 ConfigEg::Model::Bar - Catalyst Model
@@ -20,7 +23,7 @@
 
 sub COMPONENT {
     my $self = shift->next::method(@_);
-    print dump($self);
+    print "\n", dump($self), "\n";
     return $self;
 }
 

Modified: trunk/examples/ConfigEg/lib/ConfigEg/Model/Foo.pm
===================================================================
--- trunk/examples/ConfigEg/lib/ConfigEg/Model/Foo.pm	2007-12-12 01:31:35 UTC (rev 7276)
+++ trunk/examples/ConfigEg/lib/ConfigEg/Model/Foo.pm	2007-12-12 01:32:37 UTC (rev 7277)
@@ -20,7 +20,7 @@
 
 sub COMPONENT {
     my $self = shift->next::method(@_);
-    print dump($self);
+    print "\n", dump($self), "\n";
     return $self;
 }