[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