Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
Ebay	[ DIR ]	drwxr-xr-x
Null	[ DIR ]	drwxr-xr-x
PubMed	[ DIR ]	drwxr-xr-x
Ebay.pm	38.37 KB	-rw-r--r--
FirstGov.pm	21 KB	-rw-r--r--
Googlism.pm	2.82 KB	-rw-r--r--
Jobserve.pm	10.64 KB	-rw-r--r--
Null.pm	1.39 KB	-rw-r--r--
PubMed.pm	6.83 KB	-rw-r--r--
Result.pm	443 B	-rw-r--r--
Simple.pm	2.99 KB	-rw-r--r--
Test.pm	24.09 KB	-rw-r--r--

Code Editor : Null.pm

=head1 NAME

WWW::Search::NULL - class for searching any web site

=head1 SYNOPSIS

require WWW::Search;
    $search = new WWW::Search('Null');

=head1 DESCRIPTION

This class is a specialization of WWW::Search that only returns an
error message.

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

This modules is really a hack for systems that want to include
indices that have no corresponding WWW::Search module (like UNIONS)

=head1 AUTHOR

C<WWW::Search::Null> is written by Paul Lindner, <lindner@itu.int>

=head1 COPYRIGHT

=cut

package WWW::Search::Null;

use strict;
use warnings;

use base 'WWW::Search';

use Carp ();
use WWW::SearchResult;

our
$VERSION = do { my @r = (q$Revision: 1.6 $ =~ /\d+/g); sprintf "%d."."%03d" x $#r, @r };

sub _native_setup_search
  {
  my $self = shift;
  my ($native_query, $native_opt) = @_;
  my $native_url;
  $self->{_next_to_retrieve} = 0;
  $self->{_base_url} = $self->{_next_url} = $native_url;
  } # _native_setup_search

sub _native_retrieve_some
  {
  my $self = shift;
  # Null search just returns an error..
  return if (!defined($self->{_next_url}));
  my $response = new HTTP::Response(500, "This is a dummy search engine.");
  $self->{response} = $response;
  } # _native_retrieve_some

__END__

${this.title}

Code Editor : Null.pm