use 5.010;
use strict;
use warnings;
our $VERSION = '0.014'; # VERSION
use Moo;
use Config;
use JSON;
use Types::Standard qw(Int Str);
use File::Which qw(which);
use IPC::Run qw();
use namespace::au
# too bad Perl does not have a core boolean type..
if ( ref($val) =~ /^(JSON::.*::Boolean|boolean)$/ and $val ) {
"--$flag";
}
else {
self, $data ) = @_;
$self->ensure_kaleido;
my $json = JSON->new->allow_blessed(1)->convert_blessed(1);
$self->_ios->{in} .= $json->encode($data) . "\n";
$self->_stall_timeout->start;
;
our $VERSION = '0.014'; # VERSION
use Moo;
extends 'Chart::Kaleido';
use File::ShareDir;
use JSON;
use MIME::Base64 qw(decode_base64);
use Path::Tiny;
use Safe::Isa;
use Type::Params 1.004000 qw(
Str Num HashRef InstanceOf Optional Undef);
use namespace::autoclean;
my @text_formats = qw(svg json eps);
my $default_plotlyjs = sub {
my $plotlyjs;
eval {
$plotlyjs = File::Share
plotlyjs ) | Undef ),
default => $default_plotlyjs,
coerce => 1,
);
has [qw(mathjax topojson)] => (
is => 'ro',
isa => ( Str | Undef ),
coerce => 1,
);
has mapbox_access_