|
@@ -64,7 +64,7 @@ sub new ($class, %options) {
|
|
|
},
|
|
},
|
|
|
as => $renamed,
|
|
as => $renamed,
|
|
|
into => $class,
|
|
into => $class,
|
|
|
- }) unless $self->can($method);
|
|
|
|
|
|
|
+ }) unless $self->can($renamed);
|
|
|
}
|
|
}
|
|
|
|
|
|
|
|
return ($self);
|
|
return ($self);
|
|
@@ -72,6 +72,9 @@ sub new ($class, %options) {
|
|
|
|
|
|
|
|
sub _request ($self, %args) {
|
|
sub _request ($self, %args) {
|
|
|
my $msg = Playwright::Util::request ('POST', 'command', $self->{port}, $self->{ua}, %args);
|
|
my $msg = Playwright::Util::request ('POST', 'command', $self->{port}, $self->{ua}, %args);
|
|
|
|
|
+
|
|
|
|
|
+ #TODO Check spec and see if we need to coerce a bool
|
|
|
|
|
+
|
|
|
if (ref $msg eq 'ARRAY') {
|
|
if (ref $msg eq 'ARRAY') {
|
|
|
@$msg = map {
|
|
@$msg = map {
|
|
|
my $subject = $_;
|
|
my $subject = $_;
|