###########################################
package 
  SplashJumper::Plugin::ClickAllLinks;
###########################################
# Mike Schilli, 2010 (m@perlmeister.com)
###########################################
use Log::Log4perl qw(:easy);

###########################################
sub register {
###########################################
    return "click-all-links", 10;
}

###########################################
sub process {
###########################################
  my($self, $mech) = @_;

  for my $link ( $mech->links() ) {

      INFO "Clicking on ", $link->url();
      my $resp = $mech->get( $link );

      INFO "Got ", 
           length( $resp->content() ),
           " bytes back";

      $mech->back();
  }
}

1;