playwright-perl/example.pl

use strict;
use warnings;

use Data::Dumper;
use JSON::PP;
use Async;

use Playwright;

use Try::Tiny;

my $handle = Playwright->new( debug => 1 );

# Open a new chrome instance
my $browser = $handle->launch( headless => JSON::PP::false, type => 'chrome' );

# Open a tab therein
my $page = $browser->newPage({ videosPath => 'video' });
my $bideo = $page->video;

my $vidpath = $bideo->path;
print "Video Path: $vidpath\n";

# Browser contexts don't exist until you open at least one page.
# You'll need this to grab and set cookies.
my ($context) = @{$browser->contexts()};

# Load a URL in the tab
my $res = $page->goto('http://google.com', { waitUntil => 'networkidle' });
print Dumper($res->status(), $browser->version());

# Put your hand in the jar
my $cookies = $context->cookies();
print Dumper($cookies);

# Grab the main frame, in case this is a frameset
my $frameset = $page->mainFrame();
print Dumper($frameset->childFrames());

# Run some JS
my $fun = "
    var input = arguments[0];
    return {
        width: document.documentElement.clientWidth,
        height: document.documentElement.clientHeight,
        deviceScaleFactor: window.devicePixelRatio,
        arg: input
    };";
my $result = $page->evaluate($fun, 'zippy');
print Dumper($result);

# Read the console
$page->on('console',"return [...arguments]");

#XXX this is unfortunately stringifying this object
my $proc = Async->new( sub {
    return $page->waitForEvent('console');
});
$page->evaluate("console.log('hug')");
my $console_log = $proc->result(1);

use Data::Dumper;
print Dumper($console_log);

#print "Logged to console: '".$console_log->text()."'\n";

# Use a selector to find which input is visible and type into it
# Ideally you'd use a better selector to solve this problem, but this is just showing off
my $inputs = $page->selectMulti('input');

foreach my $input (@$inputs) {
    try {
        # Pretty much a brute-force approach here, again use a better pseudo-selector instead like :visible
        $input->fill('tickle', { timeout => 250 } );
    } catch {
        print "Element not visible, skipping...\n";
    }
}

# Said better selector
my $actual_input = $page->select('input[name=q]');
$actual_input->fill('whee');

# Take screen of said element
$actual_input->screenshot({ path => 'test.jpg' });

# Fiddle with HIDs
my $mouse = $page->mouse;
print "GOT HERE\n";
$mouse->move( 0, 0 );
my $keyboard = $page->keyboard();
$keyboard->type('F12');