/usr/share/perl5/WWW/Search/Null/Empty.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 | # $Id: Empty.pm,v 1.10 2010/12/02 23:45:57 Martin Exp $
=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 = do { my @r = (q$Revision: 1.10 $ =~ /\d+/g); sprintf "%d."."%03d" x $#r, @r };
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;
return 0;
} # native_retrieve_some
1;
__END__
|