[Bps-public-commit] r15407 - in Prophet/trunk: .

[jesse at bestpractical.com]

Author: jesse
Date: Sat Aug 23 16:55:33 2008
New Revision: 15407

Modified:
   Prophet/trunk/Makefile.PL
   Prophet/trunk/lib/Prophet/Replica/prophet.pm

Log:
* use -> require, delay loading for great perf win

Modified: Prophet/trunk/Makefile.PL
==============================================================================
--- Prophet/trunk/Makefile.PL	(original)
+++ Prophet/trunk/Makefile.PL	Sat Aug 23 16:55:33 2008
@@ -9,7 +9,7 @@
 requires('IPC::Run3');
 requires('Data::UUID');
 requires('Path::Class');
-requires('Test::Exception');
+build_requires('Test::Exception');
 requires('Term::ReadKey');
 requires('Digest::SHA1');  # Core in 5.10
 requires('LWP::Simple'); # Part of lib-www-perl
@@ -32,7 +32,6 @@
     'Web server' => [
         -default => 1,
         'HTTP::Server::Simple', # HTTP::Server::Simple::CGI
-        'Test::WWW::Mechanize' => '1.16',
     ],
 
     'HTML display' => [
@@ -49,6 +48,7 @@
         'Test::HTTP::Server::Simple',
         'Acme::MetaSyntactic',
         'YAML::Syck' => 0,
+        'Test::WWW::Mechanize' => '1.16',
         'Test::Pod::Coverage'
     ],
 #    q{Devel::Gladiator support (contact sky at crucially.net if it's not on CPAN)} => [

Modified: Prophet/trunk/lib/Prophet/Replica/prophet.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/Replica/prophet.pm	(original)
+++ Prophet/trunk/lib/Prophet/Replica/prophet.pm	Sat Aug 23 16:55:33 2008
@@ -8,7 +8,6 @@
 use File::Find::Rule;
 use JSON;
 
-use Prophet::ChangeSet;
 
 has '+db_uuid' => (
     lazy    => 1,
@@ -573,6 +572,8 @@
             sequence_no          => 1
         }
     );
+
+    require Prophet::ChangeSet;
     my $content_struct = from_json( $args{content} , { utf8 => 1 });
     my $changeset      = Prophet::ChangeSet->new_from_hashref($content_struct);
 
@@ -694,6 +695,7 @@
     my $creator = $source ? $source->creator : $self->changeset_creator;
     my $created = $source && $source->created;
 
+    require Prophet::ChangeSet;
     my $changeset = Prophet::ChangeSet->new({
         source_uuid => $self->uuid,
         creator     => $creator,