[Bps-public-commit] Prophet - A disconnected, replicated p2p database branch, master, updated. 3345c45c9211b02caf085b0c667360ea1502b171

jesse jesse at bestpractical.com
Sun Feb 22 01:38:30 EST 2009


The branch, master has been updated
       via  3345c45c9211b02caf085b0c667360ea1502b171 (commit)
      from  c6cb3cc8dca70fe47e270911a0c034f8ea689142 (commit)

Summary of changes:
 Makefile.PL         |    1 -
 lib/Prophet/Test.pm |    4 ++--
 2 files changed, 2 insertions(+), 3 deletions(-)

- Log -----------------------------------------------------------------
commit 3345c45c9211b02caf085b0c667360ea1502b171
Author: Jesse Vincent <jesse at bestpractical.com>
Date:   Sun Feb 22 01:38:19 2009 -0500

    Removed dependency on Scalar::Defer

diff --git a/Makefile.PL b/Makefile.PL
index 72f0917..f9931a4 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -15,7 +15,6 @@ requires('HTTP::Date');
 requires( 'JSON' => '2.00' );
 requires('Module::Pluggable');
 requires('Proc::InvokeEditor');
-requires( 'Scalar::Defer' => '0.18' );
 requires( 'Any::Moose'    => '0.04' );
 requires( 'Mouse'         => '0.16' );
 requires('XML::Atom::SimpleFeed');
diff --git a/lib/Prophet/Test.pm b/lib/Prophet/Test.pm
index 124bc15..ce68ee1 100644
--- a/lib/Prophet/Test.pm
+++ b/lib/Prophet/Test.pm
@@ -13,7 +13,6 @@ use File::Spec;
 use File::Temp qw/tempdir tempfile/;
 use Test::Exception;
 use Params::Validate ':all';
-use Scalar::Defer qw/lazy defer force/;
 use Prophet::Util;
 
 use Prophet::CLI;
@@ -306,7 +305,6 @@ sub run_command {
 }
 
 {
-    my $connection = lazy { Prophet::CLI->new->handle };
 
 =head2 load_record($type, $uuid)
 
@@ -314,10 +312,12 @@ Loads and returns a record object for the record with the given type and uuid.
 
 =cut
 
+    my $connection;
     sub load_record {
         my $type = shift;
         my $uuid = shift;
         require Prophet::Record;
+        $connection ||=  Prophet::CLI->new->handle;
         my $record = Prophet::Record->new(handle => $connection, type => $type);
         $record->load(uuid => $uuid);
         return $record;

-----------------------------------------------------------------------



More information about the Bps-public-commit mailing list