/usr/share/perl5/WWW/Search/Null.pm is in libwww-search-perl 2.51.30-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 | =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
Copyright (c) 1998 by the United Nations Administrative Committee
on Coordination (ACC)
All rights reserved.
=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
1;
__END__
|