|
|
####
$mech->click_button( name => 'fpdbr_0_PagingMove', value => ' > ' );
####
No clickable input with name fpdbr_0_PagingMove at ... .
####
$mech->submit_form(form_name => 'fpdbr_0', button => " > ",);
####
No clickable input with name > at ... .
####
use Data::Dump;
my @forms = $mech->forms();
dd \@forms;
####
[
bless({
accept_charset => "UNKNOWN",
action => bless(do{\(my $o = "http://our.intranet/information/participant.asp")},
"URI::http"),
attr => { botid => 0, method => "POST" },
default_charset => "UTF-8",
enctype => "application/x-www-form-urlencoded",
inputs => [
bless({
name => "Name",
size => 20,
type => "text",
value => "",
value_name => "",
}, "HTML::Form::TextInput"),
bless({ type => "submit", value => "Search", value_name => "" }, "HTML::Form::SubmitInput"),
],
method => "POST",
}, "HTML::Form"),
bless({
accept_charset => "UNKNOWN",
action => bless(do{\(my $o = "http://our.intranet/information/participant.asp")},
"URI::http"),
attr => { method => "POST", name => "fpdbr_0", target => "_self" },
default_charset => "UTF-8",
enctype => "application/x-www-form-urlencoded",
inputs => [
bless({
name => "fpdbr_0_PagingMove",
type => "button",
value => " -- ",
value_name => "",
}, "HTML::Form::SubmitInput"),
bless({
name => "fpdbr_0_PagingMove",
type => "button",
value => " -- ",
value_name => "",
}, "HTML::Form::SubmitInput"),
bless({
name => "fpdbr_0_PagingMove",
type => "submit",
value => " > ",
value_name => "",
}, "HTML::Form::SubmitInput"),
bless({
name => "fpdbr_0_PagingMove",
type => "submit",
value => " >| ",
value_name => "[1/100]",
}, "HTML::Form::SubmitInput"),
bless({
name => "Name",
readonly => 1,
type => "hidden",
value => "",
value_name => "",
}, "HTML::Form::TextInput"),
],
method => "POST",
}, "HTML::Form"),
]