[libweasel-perl] 08/24: * Miscelaneous Element fixes

[Robert James Clay]

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 9d2a9bada0e03c3b5e2834bdc2a6a5f9aee7da29
Author: Erik Huelsmann <ehuels at gmail.com>
Date:   Thu Jun 16 10:23:07 2016 +0200

    * Miscelaneous Element fixes
---
 lib/Weasel/Element.pm          | 11 +++++------
 lib/Weasel/Element/Document.pm |  2 +-
 2 files changed, 6 insertions(+), 7 deletions(-)

diff --git a/lib/Weasel/Element.pm b/lib/Weasel/Element.pm
index 3416236..b0ca329 100644
--- a/lib/Weasel/Element.pm
+++ b/lib/Weasel/Element.pm
@@ -10,7 +10,7 @@ Weasel::Element - The base HTML/Widget element class
 =head1 SYNOPSIS
 
    my $element = $session->page->find("./input[\@name='phone']");
-   my $value = $element->send_keys('555-885-321'
+   my $value = $element->send_keys('555-885-321');
 
 =head1 DESCRIPTION
 
@@ -54,10 +54,9 @@ has _id => (is => 'ro',
 =cut
 
 sub find {
-    my $self = shift @_;
-    my @rv = $self->find_all(@_);
+    my ($self, @args) = @_;
 
-    return shift @rv;
+    return $self->session->find($self, @args);
 }
 
 =item find_all($locator [, $scheme])
@@ -65,10 +64,10 @@ sub find {
 =cut
 
 sub find_all {
-    my ($self, $locator, $scheme) = @_;
+    my ($self, @args) = @_;
 
     # expand $locator based on framework plugins (e.g. Dojo)
-    return $self->session->find_all($self, $locator, $scheme);
+    return $self->session->find_all($self, @args);
 }
 
 =item click()
diff --git a/lib/Weasel/Element/Document.pm b/lib/Weasel/Element/Document.pm
index 2cae418..97a39f8 100644
--- a/lib/Weasel/Element/Document.pm
+++ b/lib/Weasel/Element/Document.pm
@@ -32,7 +32,7 @@ extends 'Weasel::Element';
 =cut
 
 has '+_id' => (required => 0,
-               default => '//html');
+               default => '/html');
 
 =back
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libweasel-perl.git