This is an automated email from the git hooks/post-receive script. jame-guest pushed a commit to tag v0.02 in repository libweasel-perl.
commit 2023fb584bd041d20089fe552ef39adef8e330d6 Author: Erik Huelsmann <[email protected]> Date: Sat Jun 18 14:12:29 2016 +0200 * Add clear() API for input elements --- lib/Weasel/DriverRole.pm | 11 +++++++++++ lib/Weasel/Session.pm | 10 ++++++++++ lib/Weasel/Widgets/HTML/Input.pm | 10 ++++++++++ 3 files changed, 31 insertions(+) diff --git a/lib/Weasel/DriverRole.pm b/lib/Weasel/DriverRole.pm index c7dc40e..24fb003 100644 --- a/lib/Weasel/DriverRole.pm +++ b/lib/Weasel/DriverRole.pm @@ -113,6 +113,17 @@ sub wait_for { } +=item clear($element_id) + +Clicks on an element if an element id is provided, or on the current +mouse location otherwise. + +=cut + +sub clear { + croak "Abstract interface method 'clear' called"; +} + =item click( [ $element_id ] ) Clicks on an element if an element id is provided, or on the current diff --git a/lib/Weasel/Session.pm b/lib/Weasel/Session.pm index 0c2559f..ce54475 100644 --- a/lib/Weasel/Session.pm +++ b/lib/Weasel/Session.pm @@ -104,6 +104,16 @@ sub _page_builder { =over +=item clear($element) + +=cut + +sub clear { + my ($self, $element) = @_; + + $self->driver->clear($element->_id); +} + =item click([$element]) =cut diff --git a/lib/Weasel/Widgets/HTML/Input.pm b/lib/Weasel/Widgets/HTML/Input.pm index 253faf9..487b7c0 100644 --- a/lib/Weasel/Widgets/HTML/Input.pm +++ b/lib/Weasel/Widgets/HTML/Input.pm @@ -45,6 +45,16 @@ register_widget_handler( =over +=item clear() + +=cut + +sub clear { + my ($self) = @_; + + $self->session->clear($self); +} + =item value([$value]) Gets the 'value' attribute; if C<$value> is provided, it is used to set the -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libweasel-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
