root/WWW-OpenSearch/trunk/lib/WWW/OpenSearch/Request.pm

Revision 2407 (checked in by bricas, 13 years ago)

perltidy

Line 
1 package WWW::OpenSearch::Request;
2
3 use strict;
4 use warnings;
5
6 use base qw( HTTP::Request Class::Accessor::Fast );
7
8 use HTTP::Request::Common ();
9
10 __PACKAGE__->mk_accessors( qw( opensearch_url opensearch_params ) );
11
12 =head1 NAME
13
14 WWW::OpenSearch::Request - Encapsulate an opensearch request
15
16 =head1 SYNOPSIS
17
18 =head1 DESCRIPTION
19
20 =head1 CONSTRUCTOR
21
22 =head2 new( $url, \%params )
23
24 =head1 METHODS
25
26 =head2 clone( )
27
28 =head1 ACCESSORS
29
30 =over 4
31
32 =item * opensearch_url
33
34 =item * opensearch_params
35
36 =back
37
38 =head1 AUTHOR
39
40 =over 4
41
42 =item * Brian Cassidy E<lt>bricas@cpan.orgE<gt>
43
44 =back
45
46 =head1 COPYRIGHT AND LICENSE
47
48 Copyright 2007 by Tatsuhiko Miyagawa and Brian Cassidy
49
50 This library is free software; you can redistribute it and/or modify
51 it under the same terms as Perl itself.
52
53 =cut
54
55 sub new {
56     my ( $class, $os_url, $params ) = @_;
57
58     my ( $uri, $post ) = $os_url->prepare_query( $params );
59
60     my $self;
61     if ( lc $os_url->method eq 'post' ) {
62         $self = HTTP::Request::Common::POST( $uri, $post );
63         bless $self, $class;
64     }
65     else {
66         $self = $class->SUPER::new( $os_url->method => $uri );
67     }
68
69     $self->opensearch_url( $os_url );
70     $self->opensearch_params( $params );
71
72     return $self;
73 }
74
75 sub clone {
76     my $self = shift;
77     my $clone = bless $self->SUPER::clone, ref( $self );
78
79     $clone->opensearch_url( $self->opensearch_url );
80     $clone->opensearch_params( $self->opensearch_params );
81
82     return $clone;
83 }
84
85 1;
Note: See TracBrowser for help on using the browser.