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

[sartak at bestpractical.com]

Author: sartak
Date: Sat May 17 08:07:20 2008
New Revision: 12476

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

Log:
 r56220 at onn:  sartak | 2008-05-17 08:04:35 -0400
 Unmoosify Prophet::Server::REST. There's some diamond inheritance going on here and that's tricky enough as it is


Modified: Prophet/branches/moose/lib/Prophet/Server/REST.pm
==============================================================================
--- Prophet/branches/moose/lib/Prophet/Server/REST.pm	(original)
+++ Prophet/branches/moose/lib/Prophet/Server/REST.pm	Sat May 17 08:07:20 2008
@@ -1,13 +1,13 @@
 package Prophet::Server::REST;
-use Moose;
 use Params::Validate qw/:all/;
 use JSON;
-extends 'HTTP::Server::Simple::CGI';
+use base 'HTTP::Server::Simple::CGI';
 
-has prophet_handle => (
-    is  => 'rw',
-    isa => 'Prophet::Replica',
-);
+sub prophet_handle {
+    my $self = shift;
+    $self->{'_prophet_handle'} = shift if @_;
+    return $self->{'_prophet_handle'};
+}
 
 sub handle_request {
     my ($self, $cgi) = validate_pos( @_, { isa => 'Prophet::Server::REST'} ,  { isa => 'CGI' } );
@@ -131,7 +131,4 @@
     return '302';
 }
 
-__PACKAGE__->meta->make_immutable;
-no Moose;
-
 1;