|
|
@@ -0,0 +1,29 @@
|
|
|
+package Selenium::Remote::WebElement;
|
|
|
+
|
|
|
+use strict;
|
|
|
+use warnings;
|
|
|
+use Data::Dumper;
|
|
|
+
|
|
|
+# This is the already instantiated Driver object, which will be passed to the
|
|
|
+# constructor when this class is instantiated.
|
|
|
+my $driver;
|
|
|
+
|
|
|
+sub new {
|
|
|
+ my ($class, $id, $parent) = @_;
|
|
|
+ $driver = $parent;
|
|
|
+ my $self = {
|
|
|
+ id => $id,
|
|
|
+ };
|
|
|
+ bless $self, $class or die "Can't bless $class: $!";
|
|
|
+ return $self;
|
|
|
+}
|
|
|
+
|
|
|
+sub click {
|
|
|
+ my ($self) = @_;
|
|
|
+ my $res = { 'command' => 'clickElement', 'id' => $self->{id} };
|
|
|
+ return $driver->_execute_command($res);
|
|
|
+}
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+1;
|