1 package WWW::OpenSearch::Agent;
6 use base qw( LWP::UserAgent );
9 use WWW::OpenSearch::Response;
13 WWW::OpenSearch::Agent - An agent for doing OpenSearch requests
21 =head2 new( [%options] )
25 =head2 request( $request | $url, \%params )
29 An alias for request()
35 =item * Brian Cassidy E<lt>bricas@cpan.orgE<gt>
39 =head1 COPYRIGHT AND LICENSE
41 Copyright 2007 by Tatsuhiko Miyagawa and Brian Cassidy
43 This library is free software; you can redistribute it and/or modify
44 it under the same terms as Perl itself.
49 my ( $class, @rest ) = @_;
50 return $class->SUPER::new(
51 agent => join( '/', __PACKAGE__, $WWW::OpenSearch::VERSION ),
61 my $response = $self->SUPER::request( $request, @_ );
63 # allow regular HTTP::Requests to flow through
64 return $response unless $request->isa( 'WWW::OpenSearch::Request' );
65 return WWW::OpenSearch::Response->new( $response );