[libweasel-perl] 06/11: Add possibility to get page source as seen by the driver

[Robert James Clay]

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 <ylavoie at yveslavoie.com>
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