/usr/share/perl5/WWW/Search/Reuters.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 68 69 70 71 72 | # $Id: Reuters.pm,v 1.9 2009/05/02 13:28:24 Martin Exp $
=head1 NAME
WWW::Search::Reuters - WWW::Search backend for searching Reuters News at www.washingtonpost.com
=head1 SYNOPSIS
use WWW::Search;
my $oSearch = new WWW::Search('Reuters');
my $sQuery = WWW::Search::escape_query("japan prime minister");
$oSearch->native_query($sQuery);
while (my $oResult = $oSearch->next_result())
{ print $oResult->url, "\n"; }
=head1 DESCRIPTION
This class is a specialization of WWW::Search. It handles making and
interpreting searches on Reuters news on The Washington
Post website F<http://www.washingtonpost.com>.
This class exports no public interface; all interaction should
be done through L<WWW::Search> objects.
=head1 SEE ALSO
To make new back-ends, see L<WWW::Search>.
=head1 NOTES
This backend only searches news stories from the last 60 days.
=head1 BUGS
Please tell the author if you find any!
=head1 AUTHOR
Martin Thurn <mthurn@cpan.org>
=head1 LICENSE
Copyright (C) 1998-2009 Martin 'Kingpin' Thurn
This software is released under the same license as Perl itself.
=cut
package WWW::Search::Reuters;
use strict;
use warnings;
use base 'WWW::Search::WashPost';
our
$VERSION = do { my @r = (q$Revision: 1.9 $ =~ /\d+/g); sprintf "%d."."%03d" x $#r, @r };
our $MAINTAINER = 'Martin Thurn <mthurn@cpan.org>';
# private
sub _native_setup_search
{
my ($self, $sQuery, $rhOptions) = @_;
# http://www.washingtonpost.com/ac2/wp-dyn/NewsSearch?sa=as&sd=&ed=&sb=-1&st=turtle&blt=&fa_1_pagenavigator=&fa_1_sourcenavigator=Reuters&daterange=0&specificMonth=8&specificDay=1&specificYear=2007&FromRangeMonth=6&FromRangeDay=3&FromRangeYear=2007&ToRangeMonth=8&ToRangeDay=1&ToRangeYear=2007&sb2=1&x=17&y=14
$rhOptions->{'fa_1_sourcenavigator'} = 'Reuters';
# All further work is done by our superclass, WWW::Search::WashPost:
$self->SUPER::_native_setup_search($sQuery, $rhOptions);
} # _native_setup_search
1;
__END__
|