File Coverage

blib/lib/Playwright/Mouse.pm

Criterion	Covered	Total	%
statement	9	31	29.0
branch			n/a
condition			n/a
subroutine	3	14	21.4
pod	10	11	90.9
total	22	56	39.2

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

# 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::Mouse;
$Playwright::Mouse::VERSION = '1.551';
use parent 'Playwright::Base';

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

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

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

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

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

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

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

sub down {
    my $self = shift;
    return $self->_api_request(
        args    => [@_],
        command => 'down',
        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__