-#
-# 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'},