CPAN::Groonga

# ABSTRACT: This attribute is one of the possible options for the trace scatterpolargl.

sub TO_JSON {
    my $self       = shift;
    my $extra_args = $self->extra_args // {};
    my $meta       = 

y and I want to use it with perl.

=head1 METHODS

=head2 TO_JSON

Serialize the trace to JSON. This method should be called only by L<JSON> serializer.

=head1 ATTRIBUTES

=over

=item * font

=item 

RSION

# ABSTRACT: This attribute is one of the possible options for the trace indicator.

sub TO_JSON {
    my $self       = shift;
    my $extra_args = $self->extra_args // {};
    my $meta       = 

 use JSON;
 use Chart::Plotly::Trace::Indicator;
 
 # Example from https://github.com/plotly/plotly.js/blob/68c2aefa8ab6af09c598b3739149e2d5e89155d9/test/image/mocks/indicator_grid_template.json
 my 

ible' => JSON::false, }, }, 'delta' => {'reference' => 60, }, 'value' => 120, });
 
 my $trace2 = Chart::Plotly::Trace::Indicator->new({'value' => 120, 'gauge' => {'axis' => {'visible' => JSON::false,

RSION

# ABSTRACT: This attribute is one of the possible options for the trace indicator.

sub TO_JSON {
    my $self       = shift;
    my $extra_args = $self->extra_args // {};
    my $meta       = 

 use JSON;
 use Chart::Plotly::Trace::Indicator;
 
 # Example from https://github.com/plotly/plotly.js/blob/68c2aefa8ab6af09c598b3739149e2d5e89155d9/test/image/mocks/indicator_grid_template.json
 my 

ible' => JSON::false, }, }, 'delta' => {'reference' => 60, }, 'value' => 120, });
 
 my $trace2 = Chart::Plotly::Trace::Indicator->new({'value' => 120, 'gauge' => {'axis' => {'visible' => JSON::false,

ON

# ABSTRACT: This attribute is one of the possible options for the trace scatterpolar.

sub TO_JSON {
    my $self       = shift;
    my $extra_args = $self->extra_args // {};
    my $meta       = 

y and I want to use it with perl.

=head1 METHODS

=head2 TO_JSON

Serialize the trace to JSON. This method should be called only by L<JSON> serializer.

=head1 ATTRIBUTES

=over

=item * color

=item

SION

# ABSTRACT: This attribute is one of the possible options for the trace scattergeo.

sub TO_JSON {
    my $self       = shift;
    my $extra_args = $self->extra_args // {};
    my $meta       = 

y and I want to use it with perl.

=head1 METHODS

=head2 TO_JSON

Serialize the trace to JSON. This method should be called only by L<JSON> serializer.

=head1 ATTRIBUTES

=over

=item * color

=item

VERSION

# ABSTRACT: This attribute is one of the possible options for the trace parcats.

sub TO_JSON {
    my $self       = shift;
    my $extra_args = $self->extra_args // {};
    my $meta       = 

m/plotly/plotly.js/blob/7b751009fc9804272316f0bb539ed0386c0858bd/test/image/mocks/parcats_bundled.json
 
 my $trace = Chart::Plotly::Trace::Parcats->new( bundlecolors => 1,
                           

y and I want to use it with perl.

=head1 METHODS

=head2 TO_JSON

Serialize the trace to JSON. This method should be called only by L<JSON> serializer.

=head1 ATTRIBUTES

=over

=item * color

=item

se JSON;
use File::ShareDir;
use Path::Tiny;

my $_deps;

sub _deps {
    my $kind = shift;
    if ( !defined $_deps ) {

        # TODO recover from __PACKAGE__ variable
        $_deps = from_json(
 

                                    'Dash', Path::Tiny::path( 'assets', 'dash_renderer', 'js_deps.json' )->canonpath
                                    )
                            )->slurp_utf8
   

use strictures 2;
use namespace::clean;

sub DashNamespace {
    return 'no_namespace';
}

sub TO_JSON {
    my $self       = shift;
    my @components = split( /::/, ref($self) );
    my $type       

RACT: Analytical Web Apps in Perl (Port of Plotly's Dash to Perl)

# TODO Enable signatures?

use JSON;
use Scalar::Util;
use Browser::Open;
use Path::Tiny;
use Dash::Renderer;
use Dash::Config;
use D

back ( values %{ $self->_callbacks } ) {
        my $rendered_callback = { clientside_function => JSON::null };
        my $states            = [];
        for my $state ( @{ $callback->{State} } ) {

           if ($some_updated) {
                    return { response => $props_updated, multi => JSON::true };
                } else {
                    Dash::Exceptions::PreventUpdate->throw;
   

Config;

use Moo;
use strictures 2;
use JSON;
use namespace::clean;

has url_base_pathname => ( is      => 'rw',
                           default => sub { JSON::null } );

has requests_pathname_pref

 JSON::false } );

has props_check => ( is      => 'rw',
                     default => sub { JSON::false } );

has show_undo_redo => ( is      => 'rw',
                        default => sub { JSON:

:false } );

has hot_reload => ( is => 'rw' );

has name => ( is => 'rw' );

sub TO_JSON {
    my $self = shift;
    my %hash =
      map { $_ => $self->{$_} } qw(url_base_pathname requests_pathname_p

#!/usr/bin/env perl 

use strict;
use warnings;
use utf8;

use 5.010;
use JSON;
use Path::Tiny;
use Const::Fast;

const my $dash_renderer_package_name => 'dash_renderer';

const my $dash_component_pac

derer.py');
my $dash_renderer_deps_path = $dist_share_js_renderer->child('js_deps.json');

# TODO extract js_deps.json into Dash::Renderer using aux_dash_renderer.py
system("source $dash_venv_path; py

->remove_tree();
    $component_suite_assets_path->mkpath();

    $perl_base_path->child('js_deps.json')->copy($component_suite_assets_path);

    # TODO source map files
    my $node_modules_componen

e strict;
use warnings;
use JSON;
use File::ShareDir;
use Path::Tiny;

my $_deps;

sub _deps {
    my $kind = shift;
    if ( !defined $_deps ) {
        $_deps = from_json(
                          

                                       "Dash", Path::Tiny::path( "assets", "dash_table", "js_deps.json" )->canonpath
                                       )
                            )->slurp_utf8

e strict;
use warnings;
use JSON;
use File::ShareDir;
use Path::Tiny;

my $_deps;

sub _deps {
    my $kind = shift;
    if ( !defined $_deps ) {
        $_deps = from_json(
                         P

                             "Dash", Path::Tiny::path( "assets", "dash_html_components", "js_deps.json" )->canonpath
                             )
                         )->slurp_utf8
        );
  

N

# ABSTRACT: This attribute is one of the possible options for the trace scattermapbox.

sub TO_JSON {
    my $self       = shift;
    my $extra_args = $self->extra_args // {};
    my $meta       = 

->new( traces => [$scattermapbox],
                                      layout => { autosize  => JSON::true,
                                                  hovermode => 'closest',
                

y and I want to use it with perl.

=head1 METHODS

=head2 TO_JSON

Serialize the trace to JSON. This method should be called only by L<JSON> serializer.

=head1 ATTRIBUTES

=over

=item * color

=item

e NewFangle::Segment;
  use FFI::Platypus::Memory ();
  use Ref::Util qw( is_blessed_ref );
  use JSON::MaybeXS ();
  use Carp ();

# ABSTRACT: NewRelic application class


  sub _segment
  {
    my $

lit /\n/, $errstacktrace] unless ref $errstacktrace eq 'ARRAY';
      $errstacktrace = JSON::MaybeXS::encode_json($errstacktrace);
      $xsub->($self, $priority, $errmsg, $errorclass, $errstacktrace)

    my $str = pop;
    ## Ripped from Ingy's pegex-json-pm Pegex::JSON::Data
    ## Unicode support not implemented yet but available in Pegex::JSON::Data
    my %escapes = (
        '"' => '"',
    

$routes->get(
        '/_dash-layout' => sub {
            my $c = shift;
            $c->render( json => $dash_app->()->layout() );
        }
    );

    $routes->get(
        '/_dash-dependencies' =

  $c->render( json => $dependencies );
        }
    );

    $routes->post(
        '/_dash-update-component' => sub {
            my $c = shift;

            my $request = $c->req->json;
            

nder( json => $content );
            } catch {
                if ( Scalar::Util::blessed $_ && $_->isa('Dash::Exceptions::PreventUpdate') ) {
                    $c->render( status => 204, json => '

e strict;
use warnings;
use JSON;
use File::ShareDir;
use Path::Tiny;

my $_deps;

sub _deps {
    my $kind = shift;
    if ( !defined $_deps ) {
        $_deps = from_json(
                         P

                             "Dash", Path::Tiny::path( "assets", "dash_core_components", "js_deps.json" )->canonpath
                             )
                         )->slurp_utf8
        );
  

 VERSION

# ABSTRACT: This attribute is one of the possible options for the trace icicle.

sub TO_JSON {
    my $self       = shift;
    my $extra_args = $self->extra_args // {};
    my $meta       = 

:Plot;
 use JSON;
 use Chart::Plotly::Trace::Icicle;
 
 # Example from https://github.com/plotly/plotly.js/blob/9a57346d35f28a7969beea9e0fc35e13932275c6/test/image/mocks/icicle_coffee.json
 my $trace1

'Carbony-Smokey', 'Carbony-Smokey', 'Carbony-Ashy', 'Carbony-Ashy', ], 'pathbar' => {'visible' => JSON::false, }, 'textinfo' => 'label+percent parent', 'ids' => ['Aromas', 'Tastes', 'Aromas-Enzymatic'

# ABSTRACT: This attribute is one of the possible options for the trace scatterpolargl.

sub TO_JSON {
    my $self       = shift;
    my $extra_args = $self->extra_args // {};
    my $meta       = 

y and I want to use it with perl.

=head1 METHODS

=head2 TO_JSON

Serialize the trace to JSON. This method should be called only by L<JSON> serializer.

=head1 ATTRIBUTES

=over

=item * color

=item