Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
Count.pm	3.12 KB	-rw-r--r--
Empty.pm	1.29 KB	-rw-r--r--
Error.pm	1.3 KB	-rw-r--r--
NoVersion.pm	620 B	-rw-r--r--

Code Editor : Empty.pm

=head1 NAME

WWW::Search::Null::Empty - class for testing WWW::Search clients

=head1 SYNOPSIS

use WWW::Search;
  my $oSearch = new WWW::Search('Null::Empty');
  $oSearch->native_query('Makes no difference what you search for...');
  my @aoResults = $oSearch->results;
  # You get no results...
  my $oResponse = $oSearch->response;
  # ...But you get an HTTP::Response object with a code of 200

=head1 DESCRIPTION

This class is a specialization of WWW::Search that returns no hits,
but no error message.

This module might be useful for testing a client program without
actually being connected to any particular search engine.

=head1 AUTHOR

Martin 'Kingpin' Thurn, C<mthurn at cpan.org>, L<http://tinyurl.com/nn67z>.

=cut

package WWW::Search::Null::Empty;

use strict;
use warnings;

use base 'WWW::Search';

our
$VERSION = 1.11;
our
$MAINTAINER = q{Martin Thurn <mthurn@cpan.org>};

sub _native_setup_search
  {
  my($self, $native_query, $native_opt) = @_;
  } # native_setup_search

sub _native_retrieve_some
  {
  my $self = shift;
  my $response = new HTTP::Response(200,
                                    "This is a test of WWW::Search");
  $self->{response} = $response;
  # Explicitly set the number of results:
  $self->{'approx_count'} = 0;
  return 0;
  } # native_retrieve_some

__END__

${this.title}

Code Editor : Empty.pm