=head2 $mech->find_form() Selects a form by regex on the action url. If there is more than one form on the page that matches the regex, then the first one is used. If it is found, the form is returned as an L<HTML::Form> object and set internally for later used with Mech's form methods such as C<L<field()>> and C<L<click()>>. Returns undef if no form is found. Note that this functionality requires libwww-perl 5.69 or higher. =cut sub find_form { my $self = shift; my %parms = ( n=>1, @_ ); $self->_clean_keys( \%parms, qr/^(n|(action|method|name)(_regex)?)$/ ); my @forms = $self->forms or return; my $nmatches = 0; my @matches; for my $form ( @forms ) { if ( _match_any_form_parms($form,\%parms) ) { ++$nmatches; return $form if $nmatches >= $parms{n}; } } return undef; } # find_form # Used by find_form to check for matches # The logic is such that ALL parm criteria that are given must match sub _match_any_form_parms { my $link = shift; my $p = shift; # No conditions, anything matches return 1 unless keys %$p; return if defined $p->{action} && !($form->action eq $p->{action} ); return if defined $p->{action_regex} && !($form->action =~ $p->{action_regex} ); return if defined $p->{method} && !(defined($form->method) && ($form->method eq $p->{met +hod} ); return if defined $p->{method_regex} && !(defined($form->method) && ($form->method =~ $p->{met +hod_regex} ); return if defined $p->{name} && !(defined($form->name) && $form->name eq $p->{name} ); return if defined $p->{name_regex} && !(defined($form->name) && $form->name =~ $p->{name_reg +ex} ); # Success: everything that was defined passed. return 1; }