/usr/share/perl5/Weasel/Widgets/HTML/Select.pm is in libweasel-perl 0.11-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 | =head1 NAME
Weasel::Widgets::HTML::Select - Wrapper of SELECT tag
=head1 VERSION
0.01
=head1 SYNOPSIS
=head1 DESCRIPTION
=cut
package Weasel::Widgets::HTML::Select;
use strict;
use warnings;
use Moose;
use Weasel::Element;
use Weasel::WidgetHandlers qw/ register_widget_handler /;
extends 'Weasel::Element';
register_widget_handler(
__PACKAGE__, 'HTML',
tag_name => 'select',
);
=head1 METHODS
=over
=item find_option()
Returns
=back
=cut
#
sub _option_popup {
my ($self) = @_;
return $self;
}
sub find_option {
my ($self, $text) = @_;
my $popup = $self->_option_popup;
return $popup->find('*option', text => $text);
}
=over
=item select_option
=back
=cut
sub select_option {
my ($self, $text) = @_;
$self->find_option($text)->click;
}
1;
|