Yet Another CPAN Grep

Alien-Plotly-Kaleido ( S/SL/SLOYD/Alien-Plotly-Kaleido-0.003.tar.gz, SLOYD, 2023; MetaCPAN )

Alien-Plotly-Kaleido/util/MyInstallUtil.pm ( view source; MetaCPAN )

re JSON;

    my $kaleido = File::Which::which('kaleido');
    if ($kaleido) {
        my $decode_json_safe = sub {
            my ($out) = @_;
            my $data;
            eval { $data = JSON::d

ecode_json($out); };
            $@ = '' if ($@);
            return $data;
        };

        my @cmd = ( $kaleido, 'plotly', '--disable-gpu', '--no-sandbox' );
        eval {
            require Ch

 ( not $data and not $t->is_expired ) {
                $h->pump;
                $data = $decode_json_safe->($out);
            }
            $h->finish;
        };
        if ($@) {
            warn

Alien-Plotly-Kaleido ( S/SL/SLOYD/Alien-Plotly-Kaleido-0.003.tar.gz, SLOYD, 2023; MetaCPAN )

Alien-Plotly-Kaleido/lib/Alien/Plotly/Kaleido.pm ( view source; MetaCPAN )

 = '0.003'; # VERSION

use parent 'Alien::Base';

use File::Which qw(which);
use IPC::Run ();
use JSON ();
use Path::Tiny ();

sub bin_dir {
    my ($class) = @_;
    if ( $class->install_type eq 'sys

o');
    if ($kaleido) {
        my $decode_json_safe = sub {
            my ($out) = @_;
            my $data;
            eval { $data = JSON::decode_json($out); };
            $@ = '' if ($@);

 ( not $data and not $t->is_expired ) {
                $h->pump;
                $data = $decode_json_safe->($out);
            }
            $h->finish;
        };
        if ($@) {
            warn