123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119 |
- package Playwright::Base;
- use strict;
- use warnings;
- use v5.28;
- use Sub::Install();
- use JSON;
- use Playwright::Util();
- #ABSTRACT: Object representing Playwright pages
- no warnings 'experimental';
- use feature qw{signatures};
- =head2 DESCRIPTION
- Base class for each Playwright class magic'd up by Sub::Install in Playwright's BEGIN block.
- You probably shouldn't use this.
- The specification for each class can be inspected with the 'spec' method:
- use Data::Dumper;
- my $object = Playwright::Base->new(...);
- print Dumper($object->spec());
- =head1 CONSTRUCTOR
- =head2 new(HASH) = (Playwright::Base)
- Creates a new page and returns a handle to interact with it.
- =head3 INPUT
- handle (Playwright) : Playwright object.
- id (STRING) : _guid returned by a response from the Playwright server with the provided type.
- type (STRING) : Type to actually use
- parent (Playwright::*) : Parent Object (such as a page)
- =cut
- sub new ( $class, %options ) {
- my $self = bless(
- {
- type => $options{type},
- guid => $options{id},
- ua => $options{handle}{ua},
- port => $options{handle}{port},
- parent => $options{parent},
- },
- $class
- );
- return ($self);
- }
- sub _coerce ( $spec, %args ) {
- #Coerce bools correctly
- my @argspec = values( %{ $spec->{ $args{command} }{args} } );
- @argspec = sort { $a->{order} <=> $b->{order} } @argspec;
- for ( my $i = 0 ; $i < scalar(@argspec) ; $i++ ) {
- next unless $i < @{ $args{args} };
- my $arg = $args{args}[$i];
- my $type = $argspec[$i]->{type};
- if ( $type->{name} eq 'boolean' ) {
- my $truthy = int( !!$arg );
- $args{args}[$i] = $truthy ? JSON::true : JSON::false;
- }
- elsif ( $type->{name} eq 'Object' ) {
- $type->{properties} = Playwright::Util::arr2hash($type->{properties},'name') if ref $type->{properties} eq 'ARRAY';
- foreach my $prop ( keys( %{ $type->{properties} } ) ) {
- next unless exists $arg->{$prop};
- my $truthy = int( !!$arg->{$prop} );
- next unless $type->{properties}{$prop}{type}{name} eq 'boolean';
- $args{args}[$i]->{$prop} = $truthy ? JSON::true : JSON::false;
- }
- }
- }
- return %args;
- }
- sub _api_request ( $self, %args ) {
- %args = Playwright::Base::_coerce( $self->spec(), %args );
- return Playwright::Util::async( sub { &Playwright::Base::_do( $self, %args ) } )
- if $args{command} =~ m/^waitFor/;
- my $msg = Playwright::Base::_do->( $self, %args );
- if ( ref $msg eq 'ARRAY' ) {
- @$msg = map {
- my $subject = $_;
- $subject = $Playwright::mapper{ $_->{_type} }->( $self, $_ )
- if ( ref $_ eq 'HASH' )
- && $_->{_type}
- && exists $Playwright::mapper{ $_->{_type} };
- $subject
- } @$msg;
- }
- return $Playwright::mapper{ $msg->{_type} }->( $self, $msg )
- if ( ref $msg eq 'HASH' )
- && $msg->{_type}
- && exists $Playwright::mapper{ $msg->{_type} };
- return $msg;
- }
- sub _do ( $self, %args ) {
- return Playwright::Util::request( 'POST', 'command', $self->{port},
- $self->{ua}, %args );
- }
- 1;
|