Change all classes to Moose
[catagits/Catalyst-Action-REST.git] / t / lib / Test / Rest.pm
index bb748e9..704cff2 100644 (file)
@@ -1,21 +1,17 @@
-#
-# Rest.pm
-# Created by: Adam Jacob, Marchex, <adam@marchex.com>
-# Created on: 10/16/2006 11:11:25 AM PDT
-#
-# $Id: $
-
 package Test::Rest;
 
-use strict;
-use warnings;
+use Moose;
+use namespace::autoclean;
 
 use LWP::UserAgent;
 use Params::Validate qw(:all);
 
 sub new {
     my $self = shift;
-    my %p    = validate( @_, { content_type => { type => SCALAR }, }, );
+    my %p    = validate( @_, { 
+            content_type => { type => SCALAR }, 
+        }, 
+    );
     my $ref  = {
         'ua'           => LWP::UserAgent->new,
         'content_type' => $p{'content_type'},