[Bps-public-commit] r12486 - in Prophet/branches/moose: .

[sartak at bestpractical.com]

Author: sartak
Date: Sat May 17 09:09:46 2008
New Revision: 12486

Modified:
   Prophet/branches/moose/   (props changed)
   Prophet/branches/moose/lib/Prophet/ForeignReplica.pm

Log:
 r56237 at onn:  sartak | 2008-05-17 09:09:43 -0400
 Moosify Prophet::ForeignReplica


Modified: Prophet/branches/moose/lib/Prophet/ForeignReplica.pm
==============================================================================
--- Prophet/branches/moose/lib/Prophet/ForeignReplica.pm	(original)
+++ Prophet/branches/moose/lib/Prophet/ForeignReplica.pm	Sat May 17 09:09:46 2008
@@ -1,9 +1,7 @@
-use warnings;
-use strict;
-
 package Prophet::ForeignReplica;
-use base qw/Prophet::Replica/;
+use Moose;
 use Params::Validate qw(:all);
+extends 'Prophet::Replica';
 
 =head1 NAME
 
@@ -13,7 +11,7 @@
 
 =cut
 
-sub setup {
+sub BUILD {
     my $self = shift;
     my $cli  = Prophet::CLI->new();
 
@@ -88,4 +86,7 @@
         'prophet-uuid' )->(@_);
 }
 
+no Moose;
+__PACKAGE__->meta->make_immutable;
+
 1;