view release on metacpan or search on metacpan
lib/Ambrosia/View/JSON.pm view on Meta::CPAN
package Ambrosia::View::JSON;
use strict;
use warnings;
use Carp;
use JSON::XS ();
use Ambrosia::Meta;
class sealed
{
lib/Ambrosia/View/JSON.pm view on Meta::CPAN
sub as_json
{
my $self = shift;
my $json = JSON::XS->new;
$json->utf8(0);
$json->latin1(1);
my $str = '';
eval
view release on metacpan or search on metacpan
"x_contributors" : [
"Ricardo Signes <rjbs@semiotic.systems>"
],
"x_generated_by_perl" : "v5.37.2",
"x_rjbs_perl_window" : "no-mercy",
"x_serialization_backend" : "Cpanel::JSON::XS version 4.30",
"x_spdx_expression" : "Artistic-1.0-Perl OR GPL-1.0-or-later"
}
view release on metacpan or search on metacpan
build_requires => {
'Test::More' => 0.88,
'Test::WWW::Mechanize::PSGI' => 0,
'MIME::Base64' => 0,
'JSON' => 0,
'JSON::XS' => 0,
},
requires => {
'perl' => '5.008001',
'Amon2' => 0,
'Web::ChromeLogger' => 0.04,
view release on metacpan or search on metacpan
lib/Amon2/Plugin/Web/CpanelJSON.pm view on Meta::CPAN
package Amon2::Plugin::Web::CpanelJSON;
use strict;
use warnings;
use Amon2::Util ();
use Cpanel::JSON::XS ();
use Scalar::Util qw(blessed);
use HTTP::SecureHeaders;
our $VERSION = "0.01";
lib/Amon2/Plugin/Web/CpanelJSON.pm view on Meta::CPAN
}
sub _generate_json_encoder {
my $conf = shift;
my $json = Cpanel::JSON::XS->new;
if (my $json_args = $conf->{json}) {
for my $key (keys %{$json_args}) {
$json->$key($json_args->{$key})
}
}
lib/Amon2/Plugin/Web/CpanelJSON.pm view on Meta::CPAN
=encoding utf-8
=head1 NAME
Amon2::Plugin::Web::CpanelJSON - Cpanel::JSON::XS plugin
=head1 SYNOPSIS
use Amon2::Lite;
use Cpanel::JSON::XS::Type;
use HTTP::Status qw(:constants);
__PACKAGE__->load_plugins(qw/Web::CpanelJSON/);
use constant HelloWorld => {
lib/Amon2/Plugin/Web/CpanelJSON.pm view on Meta::CPAN
=head1 DESCRIPTION
This is a JSON plugin for Amon2.
The differences from Amon2::Plugin::Web::JSON are as follows.
* Cpanel::JSON::XS::Type is available
* HTTP status code can be specified
* Flexible Configurations
lib/Amon2/Plugin/Web/CpanelJSON.pm view on Meta::CPAN
=over 4
=item C<< $c->render_json($data, $json_spec, $status=200); >>
Generate JSON C<< $data >> and C<< $json_spec >> and returns instance of L<Plack::Response>.
C<< $json_spec >> is a structure for JSON encoding defined in L<Cpanel::JSON::XS::Type>.
=back
=head1 CONFIGURATION
=over 4
=item json
Parameters of L<Cpanel::JSON::XS>. Default is as follows:
ascii => !!1,
Any parameters can be set:
view release on metacpan or search on metacpan
"version" : "0.05",
"x_contributors" : [
"saltyduck <saltyduck@gmail.com>"
],
"x_generated_by_perl" : "v5.38.2",
"x_serialization_backend" : "Cpanel::JSON::XS version 4.37",
"x_spdx_expression" : "Artistic-1.0-Perl OR GPL-1.0-or-later",
"x_static_install" : 1
}
view release on metacpan or search on metacpan
"version" : "0.03",
"x_contributors" : [
"Russell Shingleton <shingler@oclc.org>"
],
"x_generated_by_perl" : "v5.32.0",
"x_serialization_backend" : "Cpanel::JSON::XS version 4.25",
"x_spdx_expression" : "Artistic-1.0-Perl OR GPL-1.0-or-later",
"x_static_install" : 1
}
view release on metacpan or search on metacpan
"web" : "https://github.com/analizo/analizo"
}
},
"version" : "1.25.5",
"x_generated_by_perl" : "v5.38.2",
"x_serialization_backend" : "Cpanel::JSON::XS version 4.38",
"x_spdx_expression" : "GPL-3.0-only"
}
view release on metacpan or search on metacpan
},
"version" : "6.009"
}
},
"x_authority" : "cpan:PERLANCAR",
"x_serialization_backend" : "Cpanel::JSON::XS version 3.0233",
"x_static_install" : 1
}
view release on metacpan or search on metacpan
"web" : "https://github.com/sdondley/Anki-Import"
}
},
"version" : "0.030",
"x_generated_by_perl" : "v5.24.4",
"x_serialization_backend" : "Cpanel::JSON::XS version 3.0239"
}
view release on metacpan or search on metacpan
"url" : "https://github.com/gravattj/Ansible-Util-perl.git"
}
},
"version" : "0.001",
"x_generated_by_perl" : "v5.16.3",
"x_serialization_backend" : "JSON::XS version 4.02"
}
view release on metacpan or search on metacpan
"Graham Knop <haarg@haarg.org>",
"Stevan Little <stevan.little@iinteractive.com>",
"Chris 'BinGOs' Williams <chris@bingosnet.co.uk>"
],
"x_deprecated" : 1,
"x_serialization_backend" : "Cpanel::JSON::XS version 3.0222",
"x_static_install" : 0
}
view release on metacpan or search on metacpan
lib/AnyEvent/Beanstalk.pm view on Meta::CPAN
encode => \@args,
}
)->recv;
# Send job, data created by encoding @args with JSON
use JSON::XS;
$client->encoder(\&JSON::XS::encode_json);
my $job2 = $client->put(
{ priority => 100,
ttr => 120,
delay => 5,
encode => \@args,
view release on metacpan or search on metacpan
lib/AnyEvent/Campfire/Client.pm view on Meta::CPAN
use AnyEvent;
use AnyEvent::HTTP::ScopedClient;
use AnyEvent::Campfire::Stream;
use URI;
use MIME::Base64;
use JSON::XS;
use Try::Tiny;
extends 'AnyEvent::Campfire';
has 'account' => (
view release on metacpan or search on metacpan
lib/AnyEvent/Campfire/Stream.pm view on Meta::CPAN
extends 'AnyEvent::Campfire';
use AnyEvent;
use AnyEvent::HTTP;
use URI;
use JSON::XS;
use Try::Tiny;
sub BUILD {
my $self = shift;
view release on metacpan or search on metacpan
examples/server.pl view on Meta::CPAN
use AnyEvent;
use AnyEvent::Socket;
use AnyEvent::Handle;
use Protocol::WebSocket::Handshake::Server;
use Protocol::WebSocket::Frame;
use JSON::XS;
use URI::Escape;
my $tcp_server;
my %clients;
my %chromi;
view release on metacpan or search on metacpan
},
"version" : "6.030"
}
},
"x_generated_by_perl" : "v5.36.0",
"x_serialization_backend" : "Cpanel::JSON::XS version 4.37",
"x_spdx_expression" : "Artistic-1.0-Perl OR GPL-1.0-or-later"
}
view release on metacpan or search on metacpan
lib/AnyEvent/CouchDB.pm view on Meta::CPAN
missing_found => 0,
start_last_seq => 0,
start_time => "Thu, 17 Jul 2008 18:08:13 GMT",
},
],
ok => bless(do { \(my $o = 1) }, "JSON::XS::Boolean"),
session_id => "cac3c6259b452c36230efe5b41259c04",
source_last_seq => 149,
}
=head1 SEE ALSO
view release on metacpan or search on metacpan
"Ryo Okamoto",
"Shlomi Fish",
"Jos\u00e9 Joaqu\u00edn Atria"
],
"x_generated_by_perl" : "v5.35.10",
"x_serialization_backend" : "Cpanel::JSON::XS version 4.27",
"x_spdx_expression" : "Artistic-1.0-Perl OR GPL-1.0-or-later",
"x_use_unsafe_inc" : 0
}
view release on metacpan or search on metacpan
"web" : "http://github.com/gflohr/Anyevent-Filesys-Watch.git"
}
},
"version" : "v0.1.1",
"x_generated_by_perl" : "v5.40.0",
"x_serialization_backend" : "Cpanel::JSON::XS version 4.38"
}
view release on metacpan or search on metacpan
"web" : "https://github.com/uperl/AnyEvent-Finger"
}
},
"version" : "0.14",
"x_generated_by_perl" : "v5.37.3",
"x_serialization_backend" : "Cpanel::JSON::XS version 4.32",
"x_spdx_expression" : "Artistic-1.0-Perl OR GPL-1.0-or-later",
"x_use_unsafe_inc" : 0
}
view release on metacpan or search on metacpan
(
sub { CBOR::XS::encode_cbor_sharing \@_ },
sub { @{ CBOR::XS::decode_cbor shift } }
)
=item C<$AnyEvent::Fork::RPC::JSON_SERIALISER> - uses L<JSON::XS> or L<JSON>
This serialiser creates JSON arrays - you have to make sure the L<JSON>
module is installed for this serialiser to work. It can be beneficial for
sharing when you preload the L<JSON> module in a template process.
L<JSON> (with L<JSON::XS> installed) is slower than the octet string
serialiser, but usually much faster than L<Storable>, unless big chunks of
binary data need to be transferred.
Implementation:
view release on metacpan or search on metacpan
"url" : "git://github.com/plicease/AnyEvent-Git-Wrapper.git",
"web" : "https://github.com/plicease/AnyEvent-Git-Wrapper"
}
},
"version" : "0.10",
"x_serialization_backend" : "Cpanel::JSON::XS version 3.0227"
}
view release on metacpan or search on metacpan
lib/AnyEvent/HTTP/ScopedClient.pm view on Meta::CPAN
# ...
}
);
# Content-Type: application/json
use JSON::XS;
$client->header('Content-Type', 'application/json')
->post(
encode_json({ foo => 1 }),
sub {
my ($body, $hdr) = @_;
view release on metacpan or search on metacpan
"web" : "https://github.com/Leont/anyevent-handle-udp"
}
},
"version" : "0.050",
"x_generated_by_perl" : "v5.24.0",
"x_serialization_backend" : "Cpanel::JSON::XS version 3.0215"
}
view release on metacpan or search on metacpan
lib/AnyEvent/I3.pm view on Meta::CPAN
package AnyEvent::I3;
# vim:ts=4:sw=4:expandtab
use strict;
use warnings;
use JSON::XS;
use AnyEvent::Handle;
use AnyEvent::Socket;
use AnyEvent;
use Encode;
use Scalar::Util qw(tainted);
view release on metacpan or search on metacpan
"version" : "0.004",
"x_contributors" : [
"Wesley Schwengle <waterkip@cpan.org>"
],
"x_generated_by_perl" : "v5.40.0",
"x_serialization_backend" : "Cpanel::JSON::XS version 4.38",
"x_spdx_expression" : "BSD-3-Clause"
}
view release on metacpan or search on metacpan
"version" : "6.012"
}
},
"x_authority" : "cpan:GETTY",
"x_generated_by_perl" : "v5.20.0",
"x_serialization_backend" : "Cpanel::JSON::XS version 3.0104"
}
view release on metacpan or search on metacpan
"web" : "https://github.com/plicease/AnyEvent-Ident"
}
},
"version" : "0.08",
"x_generated_by_perl" : "v5.31.10",
"x_serialization_backend" : "Cpanel::JSON::XS version 4.19",
"x_spdx_expression" : "Artistic-1.0-Perl OR GPL-1.0-or-later",
"x_use_unsafe_inc" : 0
}
view release on metacpan or search on metacpan
},
"version" : "6.024"
}
},
"x_generated_by_perl" : "v5.34.0",
"x_serialization_backend" : "Cpanel::JSON::XS version 4.27",
"x_spdx_expression" : "Artistic-1.0-Perl OR GPL-1.0-or-later"
}
view release on metacpan or search on metacpan
lib/AnyEvent.pm view on Meta::CPAN
The guard module, when used, will be used to implement
C<AnyEvent::Util::guard>. This speeds up guards considerably (and uses a
lot less memory), but otherwise doesn't affect guard operation much. It is
purely used for performance.
=item L<JSON> and L<JSON::XS>
One of these modules is required when you want to read or write JSON data
via L<AnyEvent::Handle>. L<JSON> is also written in pure-perl, but can take
advantage of the ultra-high-speed L<JSON::XS> module when it is installed.
=item L<Net::SSLeay>
Implementing TLS/SSL in Perl is certainly interesting, but not very
worthwhile: If this module is installed, then L<AnyEvent::Handle> (with