WWW::Search::Yahoo::UK - class for searching Yahoo! UK (not Ireland)

WWW-Search-Yahoo documentation

Contained in the WWW-Search-Yahoo distribution.

Index

NAME
SYNOPSIS
DESCRIPTION
NOTES
SEE ALSO
BUGS
TESTING
AUTHOR
LEGALESE

Code Index:

package WWW::Search::Yahoo::UK
- _native_setup_search
__END__
EOF

NAME

WWW::Search::Yahoo::UK - class for searching Yahoo! UK (not Ireland)

SYNOPSIS

  use WWW::Search;
  my $oSearch = new WWW::Search('Yahoo::UK');
  my $sQuery = WWW::Search::escape_query("Surrey");
  $oSearch->native_query($sQuery);
  while (my $oResult = $oSearch->next_result())
    print $oResult->url, "\n";

DESCRIPTION

This class is a Yahoo! UK specialization of WWW::Search. It handles making and interpreting searches on Yahoo! UK http://uk.yahoo.com.

This class exports no public interface; all interaction should be done through WWW::Search objects.

NOTES

SEE ALSO

To make new back-ends, see WWW::Search.

BUGS

Please tell the maintainer if you find any!

TESTING

There are no tests defined for this module.

AUTHOR

WWW::Search::Yahoo is maintained by Martin Thurn (mthurn@cpan.org).

LEGALESE

Copyright (C) 1998-2009 Martin 'Kingpin' Thurn

THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.

WWW-Search-Yahoo documentation

Contained in the WWW-Search-Yahoo distribution.

# UK.pm
# by Martin Thurn
# $Id: UK.pm,v 1.10 2009/05/02 13:28:41 Martin Exp $

#####################################################################

package WWW::Search::Yahoo::UK;

use strict;
use warnings;

use WWW::Search::Yahoo;

use base 'WWW::Search::Yahoo';

our
$VERSION = '2.022';
our $MAINTAINER = 'Martin Thurn <mthurn@cpan.org>';

sub _native_setup_search
  {
  my ($self, $sQuery, $rh) = @_;
  # print STDERR " +   in UK::_native_setup_search, rh is ", Dumper($rh);
  $self->{'_options'} = {
                         'p' => $sQuery,
                         'y' => 'uk',
                        };
  $rh->{'search_base_url'} = 'http://uk.search.yahoo.com';
  $rh->{'search_base_path'} = '/search/ukie';
  # print STDERR " +   Yahoo::UK::_native_setup_search() is calling SUPER::_native_setup_search()...\n";
  return $self->SUPER::_native_setup_search($sQuery, $rh);
  } # _native_setup_search

1;

__END__