File Coverage

blib/lib/Playwright/CDPSessionEvent.pm
Criterion Covered Total %
statement 9 23 39.1
branch n/a
condition n/a
subroutine 3 10 30.0
pod 6 7 85.7
total 18 40 45.0


line stmt bran cond sub pod time code
1             # ABSTRACT: Automatically generated class for Playwright::CDPSessionEvent
2             # PODNAME: Playwright::CDPSessionEvent
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   7 use strict;
  1         2  
  1         39  
9 1     1   5 use warnings;
  1         3  
  1         97  
10              
11             package Playwright::CDPSessionEvent;
12             $Playwright::CDPSessionEvent::VERSION = '1.551';
13 1     1   8 use parent 'Playwright::Base';
  1         2  
  1         6  
14              
15             sub new {
16 0     0 1   my ( $self, %options ) = @_;
17 0           $options{type} = 'CDPSessionEvent';
18 0           return $self->SUPER::new(%options);
19             }
20              
21             sub spec {
22 0     0 0   return $Playwright::spec->{'CDPSessionEvent'}{members};
23             }
24              
25             sub onEvent {
26 0     0 1   my $self = shift;
27             return $self->_api_request(
28             args => [@_],
29             command => 'onEvent',
30             object => $self->{guid},
31             type => $self->{type}
32 0           );
33             }
34              
35             sub eventName {
36 0     0 1   my $self = shift;
37             return $self->_api_request(
38             args => [@_],
39             command => 'eventName',
40             object => $self->{guid},
41             type => $self->{type}
42 0           );
43             }
44              
45             sub on {
46 0     0 1   my $self = shift;
47             return $self->_api_request(
48             args => [@_],
49             command => 'on',
50             object => $self->{guid},
51             type => $self->{type}
52 0           );
53             }
54              
55             sub evaluate {
56 0     0 1   my $self = shift;
57             return $self->_api_request(
58             args => [@_],
59             command => 'evaluate',
60             object => $self->{guid},
61             type => $self->{type}
62 0           );
63             }
64              
65             sub evaluateHandle {
66 0     0 1   my $self = shift;
67             return $self->_api_request(
68             args => [@_],
69             command => 'evaluateHandle',
70             object => $self->{guid},
71             type => $self->{type}
72 0           );
73             }
74              
75             1;
76              
77             __END__