X-Git-Url: http://erislabs.net/gitweb/?p=libwww-opensearch-perl.git;a=blobdiff_plain;f=lib%2FWWW%2FOpenSearch%2FRequest.pm;h=ffe7d1b2bd296cda28ed613cb49bb12e553cb38b;hp=7c33255a10252a2ca6c77414ff2d1a0aa64cc4bb;hb=3e29d833e4fbe59c83e7ae52a7413b193c1083bd;hpb=5127c597102ab37e43b89cc43b4d8ea1b34509cd

diff --git a/lib/WWW/OpenSearch/Request.pm b/lib/WWW/OpenSearch/Request.pm
index 7c33255..ffe7d1b 100644
--- a/lib/WWW/OpenSearch/Request.pm
+++ b/lib/WWW/OpenSearch/Request.pm
@@ -53,12 +53,12 @@ it under the same terms as Perl itself.
 =cut
 
 sub new {
-    my( $class, $os_url, $params ) = @_;
+    my ( $class, $os_url, $params ) = @_;
 
-    my( $uri, $post ) = $os_url->prepare_query( $params );
+    my ( $uri, $post ) = $os_url->prepare_query( $params );
 
     my $self;
-    if( lc $os_url->method eq 'post' ) {
+    if ( lc $os_url->method eq 'post' ) {
         $self = HTTP::Request::Common::POST( $uri, $post );
         bless $self, $class;
     }
@@ -73,7 +73,7 @@ sub new {
 }
 
 sub clone {
-    my $self  = shift;
+    my $self = shift;
     my $clone = bless $self->SUPER::clone, ref( $self );
 
     $clone->opensearch_url( $self->opensearch_url );