Perltidy this code a bit.

[gitmo/Moose.git] / t / 200_examples / 002_example_Moose_POOP.t

diff --git a/t/200_examples/002_example_Moose_POOP.t b/t/200_examples/002_example_Moose_POOP.t
index 2c1f3b3..0298123 100644 (file)
--- a/t/200_examples/002_example_Moose_POOP.t
+++ b/t/200_examples/002_example_Moose_POOP.t
@@ -7,7 +7,7 @@ use Test::More;
 
 BEGIN {
     eval "use DBM::Deep 1.0003;";
-    plan skip_all => "DBM::Deep is required for this test" if $@;              
+    plan skip_all => "DBM::Deep 1.0003 (or greater) is required for this test" if $@;              
     eval "use DateTime::Format::MySQL;";
     plan skip_all => "DateTime::Format::MySQL is required for this test" if $@;            
     plan tests => 89;    
@@ -16,6 +16,15 @@ BEGIN {
 use Test::Exception;
 
 BEGIN {
+    # in case there are leftovers
+    unlink('newswriter.db') if -e 'newswriter.db';
+}
+
+END {
+    unlink('newswriter.db') if -e 'newswriter.db';
+}
+
+BEGIN {
     use_ok('Moose');           
 }
 
@@ -24,8 +33,8 @@ BEGIN {
 This example creates a very basic Object Database which 
 links in the instances created with a backend store 
 (a DBM::Deep hash). It is by no means to be taken seriously
-as a real-world ODB (see Presto for that), but is a proof 
-of concept of the flexibility of the ::Instance protocol. 
+as a real-world ODB, but is a proof of concept of the flexibility 
+of the ::Instance protocol. 
 
 =cut
 
@@ -429,4 +438,3 @@ Moose::POOP::Meta::Instance->_reload_db();
     
 }
 
-unlink('newswriter.db') if -e 'newswriter.db';
\ No newline at end of file