Grep/Source/MoinMoin.pm

#!/usr/bin/perl

use warnings;
use strict;

package Grep::Source::MoinMoin;

=head1 NAME

Grep::Source::MoinMoin - scraper for MoinMoin wiki search results

=cut

sub content_have {
        qr/MoinMoin/
}

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

        $parent->scrape(
#               submit_form => {
#                       fields => {
#                               value => $parent->q,
#                       },
#                       button => 'fullsearch',
#               },
                wrapper => [ qw/div class searchresults/ ],
                results => 'dt',
                scrape => [ qw/div id page/ ],
                # when search returns just single hit, it will redirect to result page
                redirect_single_result => 1,
        );

}

1;
1	dpavlin	73	#!/usr/bin/perl
2	dpavlin	72
3			use warnings;
4			use strict;
5
6			package Grep::Source::MoinMoin;
7
8	dpavlin	73	=head1 NAME
9
10			Grep::Source::MoinMoin - scraper for MoinMoin wiki search results
11
12			=cut
13
14	dpavlin	72	sub content_have {
15			qr/MoinMoin/
16			}
17
18			sub fetch {
19			my $self = shift;
20			my $parent = shift;
21
22	dpavlin	85	$parent->scrape(
23	dpavlin	90	# submit_form => {
24			# fields => {
25			# value => $parent->q,
26			# },
27			# button => 'fullsearch',
28			# },
29	dpavlin	85	wrapper => [ qw/div class searchresults/ ],
30			results => 'dt',
31			scrape => [ qw/div id page/ ],
32	dpavlin	132	# when search returns just single hit, it will redirect to result page
33			redirect_single_result => 1,
34	dpavlin	85	);
35	dpavlin	72
36			}
37
38			1;