=head1 COPYRIGHT AND LICENSE
-Copyright 2007 by Tatsuhiko Miyagawa and Brian Cassidy
+Copyright 2005-2009 by Tatsuhiko Miyagawa and Brian Cassidy
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
sub new {
- my( $class, @rest ) = @_;
+ my ( $class, @rest ) = @_;
return $class->SUPER::new(
agent => join( '/', __PACKAGE__, $WWW::OpenSearch::VERSION ),
@rest,
sub request {
my $self = shift;
- my $request = shift; ;
+ my $request = shift;
my $response = $self->SUPER::request( $request, @_ );
# allow regular HTTP::Requests to flow through