01 ###########################################
02 package SplashJumper::Plugin::CheckBoxFill;
03 ###########################################
04 # Mike Schilli, 2010 (m@perlmeister.com)
05 ###########################################
06 use Log::Log4perl qw(:easy);
07 
08 ###########################################
09 sub register {
10 ###########################################
11     return "checkbox-fill", 50;
12 }
13 
14 ###########################################
15 sub process {
16 ###########################################
17   my($self, $mech) = @_;
18 
19   $mech->form_number(1);
20 
21   my @inputs = $mech->current_form->
22            find_input( undef, "checkbox" );
23 
24   for my $input ( @inputs ) {
25       $input->check();
26   }
27 
28   INFO "Submitting form 1";
29   $mech->submit_form( form_number => 1 );
30   $mech->back();
31 }
32 
33 1;