01 ###########################################
02 package 
03   SplashJumper::Plugin::ClickAllLinks;
04 ###########################################
05 # Mike Schilli, 2010 (m@perlmeister.com)
06 ###########################################
07 use Log::Log4perl qw(:easy);
08 
09 ###########################################
10 sub register {
11 ###########################################
12     return "click-all-links", 10;
13 }
14 
15 ###########################################
16 sub process {
17 ###########################################
18   my($self, $mech) = @_;
19 
20   for my $link ( $mech->links() ) {
21 
22       INFO "Clicking on ", $link->url();
23       my $resp = $mech->get( $link );
24 
25       INFO "Got ", 
26            length( $resp->content() ),
27            " bytes back";
28 
29       $mech->back();
30   }
31 }
32 
33 1;