File Coverage

blib/lib/Playwright/Clock.pm

Criterion	Covered	Total	%
statement	9	33	27.2
branch			n/a
condition			n/a
subroutine	3	15	20.0
pod	11	12	91.6
total	23	60	38.3

# ABSTRACT: Automatically generated class for Playwright::Clock
# PODNAME: Playwright::Clock

# These classes used to be generated at runtime, but are now generated when the module is built.
# Don't send patches against these modules, they will be ignored.
# See generate_perl_modules.pl in the repository for generating this.

use strict;
use warnings;

package Playwright::Clock;
$Playwright::Clock::VERSION = '1.551';
use parent 'Playwright::Base';

sub new {
    my ( $self, %options ) = @_;
    $options{type} = 'Clock';
    return $self->SUPER::new(%options);
}

sub spec {
    return $Playwright::spec->{'Clock'}{members};
}

sub install {
    my $self = shift;
    return $self->_api_request(
        args    => [@_],
        command => 'install',
        object  => $self->{guid},
        type    => $self->{type}
    );
}

sub setFixedTime {
    my $self = shift;
    return $self->_api_request(
        args    => [@_],
        command => 'setFixedTime',
        object  => $self->{guid},
        type    => $self->{type}
    );
}

sub runFor {
    my $self = shift;
    return $self->_api_request(
        args    => [@_],
        command => 'runFor',
        object  => $self->{guid},
        type    => $self->{type}
    );
}

sub fastForward {
    my $self = shift;
    return $self->_api_request(
        args    => [@_],
        command => 'fastForward',
        object  => $self->{guid},
        type    => $self->{type}
    );
}

sub setSystemTime {
    my $self = shift;
    return $self->_api_request(
        args    => [@_],
        command => 'setSystemTime',
        object  => $self->{guid},
        type    => $self->{type}
    );
}

sub pauseAt {
    my $self = shift;
    return $self->_api_request(
        args    => [@_],
        command => 'pauseAt',
        object  => $self->{guid},
        type    => $self->{type}
    );
}

sub resume {
    my $self = shift;
    return $self->_api_request(
        args    => [@_],
        command => 'resume',
        object  => $self->{guid},
        type    => $self->{type}
    );
}

sub on {
    my $self = shift;
    return $self->_api_request(
        args    => [@_],
        command => 'on',
        object  => $self->{guid},
        type    => $self->{type}
    );
}

sub evaluate {
    my $self = shift;
    return $self->_api_request(
        args    => [@_],
        command => 'evaluate',
        object  => $self->{guid},
        type    => $self->{type}
    );
}

sub evaluateHandle {
    my $self = shift;
    return $self->_api_request(
        args    => [@_],
        command => 'evaluateHandle',
        object  => $self->{guid},
        type    => $self->{type}
    );
}

1;

__END__