Leser: 24
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
=head1 FIELD METHODS
These methods allow you to set the values of fields in a given form.
=head2 $mech->field( $name, $value, $number )
=head2 $mech->field( $name, \@values, $number )
Given the name of a field, set its value to the value specified.
This applies to the current form (as set by the L</form_name()> or
L</form_number()> method or defaulting to the first form on the
page).
The optional I<$number> parameter is used to distinguish between two fields
with the same name. The fields are numbered from 1.
=cut
sub field {
my ($self, $name, $value, $number) = @_;
$number ||= 1;
my $form = $self->{form};
1340--> if ($number > 1) {
$form->find_input($name, undef, $number)->value($value);
}
else {
if ( ref($value) eq 'ARRAY' ) {
$form->param($name, $value);
}
else {
$form->value($name => $value);
}
}
}
$browser->field('wikitext', @h);
$mech->field( $name, $value, $number )
QuoteBis jetzt war es noch nie von nöten alle drei Sachen anzugeben