Grep/Source/Wikipedia.pm

#!/usr/bin/perl

use warnings;
use strict;

package Grep::Source::Wikipedia;

=head1 NAME

Grep::Source::Wikipedia - scraiper for Wikipeda's variat of MediaWiki search results

=cut

sub content_have {
        qr(MediaWiki.*<li)s;
}

sub fetch {
        my $self = shift;
        my $parent = shift;

        $parent->scrape(
                wrapper => [ qw/div id bodyContent/ ],
                results => 'li',
                scrape => [ qw/div id content/ ],
        );

}

1;
1	#!/usr/bin/perl
2
3	use warnings;
4	use strict;
5
6	package Grep::Source::Wikipedia;
7
8	=head1 NAME
9
10	Grep::Source::Wikipedia - scraiper for Wikipeda's variat of MediaWiki search results
11
12	=cut
13
14	sub content_have {
15	qr(MediaWiki.*<li)s;
16	}
17
18	sub fetch {
19	my $self = shift;
20	my $parent = shift;
21
22	$parent->scrape(
23	wrapper => [ qw/div id bodyContent/ ],
24	results => 'li',
25	scrape => [ qw/div id content/ ],
26	);
27
28	}
29
30	1;