File Coverage

blib/lib/Playwright/APIRequest.pm
Criterion Covered Total %
statement 9 21 42.8
branch n/a
condition n/a
subroutine 3 9 33.3
pod 5 6 83.3
total 17 36 47.2


line stmt bran cond sub pod time code
1             # ABSTRACT: Automatically generated class for Playwright::APIRequest
2             # PODNAME: Playwright::APIRequest
3              
4             # These classes used to be generated at runtime, but are now generated when the module is built.
5             # Don't send patches against these modules, they will be ignored.
6             # See generate_perl_modules.pl in the repository for generating this.
7              
8 1     1   8 use strict;
  1         3  
  1         43  
9 1     1   6 use warnings;
  1         2  
  1         81  
10              
11             package Playwright::APIRequest;
12             $Playwright::APIRequest::VERSION = '1.551';
13 1     1   8 use parent 'Playwright::Base';
  1         3  
  1         7  
14              
15             sub new {
16 0     0 1   my ( $self, %options ) = @_;
17 0           $options{type} = 'APIRequest';
18 0           return $self->SUPER::new(%options);
19             }
20              
21             sub spec {
22 0     0 0   return $Playwright::spec->{'APIRequest'}{members};
23             }
24              
25             sub newContext {
26 0     0 1   my $self = shift;
27             return $self->_api_request(
28             args => [@_],
29             command => 'newContext',
30             object => $self->{guid},
31             type => $self->{type}
32 0           );
33             }
34              
35             sub on {
36 0     0 1   my $self = shift;
37             return $self->_api_request(
38             args => [@_],
39             command => 'on',
40             object => $self->{guid},
41             type => $self->{type}
42 0           );
43             }
44              
45             sub evaluate {
46 0     0 1   my $self = shift;
47             return $self->_api_request(
48             args => [@_],
49             command => 'evaluate',
50             object => $self->{guid},
51             type => $self->{type}
52 0           );
53             }
54              
55             sub evaluateHandle {
56 0     0 1   my $self = shift;
57             return $self->_api_request(
58             args => [@_],
59             command => 'evaluateHandle',
60             object => $self->{guid},
61             type => $self->{type}
62 0           );
63             }
64              
65             1;
66              
67             __END__