This is an automated email from the git hooks/post-receive script. jame-guest pushed a commit to tag v0.10 in repository libweasel-perl.
commit 84b5e754c2125616d7751e84358d3ef0e8d8b8b2 Author: Yves Lavoie <[email protected]> Date: Sun Sep 4 23:17:31 2016 -0400 Add possibility to get page source as seen by the driver --- lib/Weasel/Session.pm | 21 +++++++++++++++------ 1 file changed, 15 insertions(+), 6 deletions(-) diff --git a/lib/Weasel/Session.pm b/lib/Weasel/Session.pm index 443cfce..3ce64d7 100644 --- a/lib/Weasel/Session.pm +++ b/lib/Weasel/Session.pm @@ -42,7 +42,6 @@ use Module::Runtime qw/ use_module /;; use Weasel::FindExpanders qw/ expand_finder_pattern /; use Weasel::WidgetHandlers qw| best_match_handler_class |; - =head1 ATTRIBUTES =over @@ -116,7 +115,6 @@ Upon instantiation can be set to log consumer; a function of 3 arguments: has 'log_hook' => (is => 'ro', isa => 'Maybe[CodeRef]'); - =item page_class Upon instantiation can be set to an alternative class name for the C<page> @@ -154,7 +152,6 @@ has 'poll_delay' => (is => 'rw', =back - =head1 METHODS @@ -248,7 +245,6 @@ sub find_all { . ' (' . $_->tag_name . ")" } @$rv)); }, "pattern: $pattern"); - return wantarray ? @rv : \@rv; } @@ -344,6 +340,21 @@ sub screenshot { }, 'screenshot', 'screenshot'); } +=item get_page_source($fh) + +Writes a get_page_source of the browser's window to the filehandle C<$fh>. + +=cut + +sub get_page_source { + my ($self) = @_; + + $self->_logged( + sub { + $self->driver->get_page_source(); + }, 'get_page_source', 'get_page_source'); +} + =item send_keys($element, @keys) Send the characters specified in the strings in C<@keys> to C<$element>, @@ -398,8 +409,6 @@ sub wait_for { }, 'wait_for', 'waiting for condition'); } - - sub _appending_wrap { my ($str) = @_; return sub { -- 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
