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

###########################################
sub register {
###########################################
    return "checkbox-fill", 50;
}

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

  $mech->form_number(1);

  my @inputs = $mech->current_form->
           find_input( undef, "checkbox" );

  for my $input ( @inputs ) {
      $input->check();
  }

  INFO "Submitting form 1";
  $mech->submit_form( form_number => 1 );
  $mech->back();
}

1;