view release on metacpan or search on metacpan
"version" : "6.031"
}
},
"x_authority" : "cpan:PERLANCAR",
"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
lib/Template/Plugin/JSON.pm view on Meta::CPAN
sub BUILDARGS {
my ( $class, $c, @args ) = @_;
if ( @args == 1 and not ref $args[0] ) {
warn "Single argument form is deprecated, this module always uses JSON/JSON::XS now";
}
my $args = ref $args[0] ? $args[0] : {};
return { %$args, context => $c, json_args => $args };
lib/Template/Plugin/JSON.pm view on Meta::CPAN
=head1 DESCRIPTION
This plugin provides a C<.json> vmethod to all value types when loaded. You
can also decode a json string back to a data structure.
It will load the L<JSON> module (you probably want L<JSON::XS> installed for
automatic speed ups).
Any options on the USE line are passed through to the JSON object, much like L<JSON/to_json>.
=head1 SEE ALSO
view release on metacpan or search on metacpan
"url" : "https://github.com/atoomic/Amazon-Dash-Button.git",
"web" : "https://github.com/atoomic/Amazon-Dash-Button"
}
},
"version" : "0.11",
"x_serialization_backend" : "Cpanel::JSON::XS version 3.0211"
}
view release on metacpan or search on metacpan
lib/Amazon/DynamoDB/Simple.pm view on Meta::CPAN
package Amazon::DynamoDB::Simple;
use Amazon::DynamoDB;
use Carp qw/cluck confess carp croak/;
use DDP;
use JSON::XS;
use Moo;
use Try::Tiny;
our $VERSION="0.01";
lib/Amazon/DynamoDB/Simple.pm view on Meta::CPAN
my %new;
for my $key (keys %item) {
my $value = $item{$key};
$new{$key} = $self->is_valid_json($value)
? JSON::XS->new->utf8->pretty->decode($value)
: $value;
}
return %new;
}
lib/Amazon/DynamoDB/Simple.pm view on Meta::CPAN
my %new;
for my $key (keys %item) {
my $value = $item{$key};
$new{$key} = ref $value
? JSON::XS->new->utf8->pretty->encode($value)
: $item{$key};
}
return %new;
}
sub is_valid_json {
my ($self, $json) = @_;
eval { JSON::XS->new->utf8->pretty->decode($json) };
return 0 if $@;
return 1;
}
sub permanent_delete {
view release on metacpan or search on metacpan
Author: Rusty Conover <rustyconover@users.noreply.github.com>
Date : 2015-01-06 19:23:39 +0000
Merge pull request #5 from karenetheridge/topic/json_maybexs
Swap out JSON::XS for JSON::MaybeXS
Change: 6b1dbca1170b86156c7177682b6874a03997df84
Author: Karen Etheridge <ether@cpan.org>
Date : 2015-01-06 16:10:48 +0000
Swap out JSON::XS for JSON::MaybeXS, to allow the user to choose
between backends
-----------------------------------------
version 0.30 at 2015-01-04 04:46:30 +0000
-----------------------------------------
view release on metacpan or search on metacpan
"url" : "https://github.com/fayland/perl-Amazon-S3-SignedURLGenerator.git",
"web" : "https://github.com/fayland/perl-Amazon-S3-SignedURLGenerator"
}
},
"version" : "0.02",
"x_serialization_backend" : "Cpanel::JSON::XS version 3.023"
}
view release on metacpan or search on metacpan
lib/Amazon/SES/Response.pm view on Meta::CPAN
=cut
class Amazon::SES::Response :ro {
use XML::Simple;
use JSON::XS;
has 'response' => (is => 'ro');
has 'action' => (is => 'ro');
has 'data' => (is => 'rw');
lib/Amazon/SES/Response.pm view on Meta::CPAN
Same as C<result()>, except converts the data into JSON notation
=cut
method result_as_json() {
return JSON::XS->new->allow_nonref->encode([$self->result]);
};
=head2 raw_content()
This is the raw (unparsed) by decoded HTTP content as returned from the AWS SES. Usually you do not need it. If you think you need it just knock yourself out!
view release on metacpan or search on metacpan
lib/Amazon/SQS/Consumer.pm view on Meta::CPAN
use 5.006;
use strict;
use warnings;
use base 'Amazon::SQS::ProducerConsumer::Base';
use JSON::XS;
use Encode qw( encode_utf8 is_utf8 );
use constant {
DEFAULT_N_MESSAGES => 10,
DEFAULT_WAIT_SECONDS => 30,
view release on metacpan or search on metacpan
"type" : "git",
"url" : "https://github.com/dreamhost/Ambassador-API-V2"
}
},
"version" : "0.001",
"x_serialization_backend" : "Cpanel::JSON::XS version 3.0213"
}
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.42.0",
"x_serialization_backend" : "Cpanel::JSON::XS version 4.40",
"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
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