view release on metacpan or search on metacpan
},
"version" : "0.05",
"x_contributors" : [
"Jose Joaquin Atria <jjatria@cpan.org>"
],
"x_serialization_backend" : "Cpanel::JSON::XS version 3.0231"
}
view release on metacpan or search on metacpan
lib/AWS/CLIWrapper.pm view on Meta::CPAN
use warnings;
our $VERSION = '1.27';
use version;
use JSON 2;
use IPC::Cmd;
use String::ShellQuote;
use Carp;
our $Error = { Message => '', Code => '' };
lib/AWS/CLIWrapper.pm view on Meta::CPAN
}
my $self = bless {
region => $region,
opt => \@opt,
json => JSON->new,
param => \%param,
awscli_path => $param{awscli_path} || 'aws',
croak_on_error => !!$param{croak_on_error},
timeout => (defined $ENV{AWS_CLIWRAPPER_TIMEOUT}) ? $ENV{AWS_CLIWRAPPER_TIMEOUT} : 30,
}, $class;
lib/AWS/CLIWrapper.pm view on Meta::CPAN
warn sprintf("%s.%s[%s]: %s\n",
$service, $operation, 'OK', $json,
) if $ENV{AWSCLI_DEBUG};
local $@;
my($ret) = eval {
# aws s3 returns null HTTP body, so failed to parse as JSON
# Temporary disable __DIE__ handler to prevent the
# exception from decode() from catching by outer
# __DIE__ handler.
local $SIG{__DIE__} = sub {};
view release on metacpan or search on metacpan
lib/AWS/IP.pm view on Meta::CPAN
use warnings;
package AWS::IP;
use Cache::File;
use Carp;
use HTTP::Tiny;
use JSON::XS;
use File::Temp 'tempdir';
use Net::CIDR::Set;
# required by HTTP::Tiny for https
use IO::Socket::SSL 1.56;
view release on metacpan or search on metacpan
lib/AWS/Lambda/Quick.pm view on Meta::CPAN
#!/usr/bin/perl
use strict;
use warnings;
use JSON::PP;
use AWS::Lambda::Quick (
name => 'echo',
);
view release on metacpan or search on metacpan
author/publish-perl-runtime-archives.pl view on Meta::CPAN
use strict;
use warnings;
use FindBin;
use Parallel::ForkManager;
use File::Basename 'basename';
use JSON qw(decode_json encode_json);
my $force = ($ARGV[0] // '') eq '-f';
sub head_or_put {
my ($key, $zip) = @_;
view release on metacpan or search on metacpan
lib/AWS/Networks.pm view on Meta::CPAN
package AWS::Networks;
use Moose;
use JSON;
use HTTP::Tiny;
use DateTime;
our $VERSION = '0.01';
view release on metacpan or search on metacpan
lib/AWS/S3/Bucket.pm view on Meta::CPAN
$cloudfront_dist->isa( 'AWS::CloudFront::Distribution' )
or die "Usage: enable_cloudfront_distribution( <AWS::CloudFront::Distribution object> )";
my $ident = $cloudfront_dist->cf->create_origin_access_identity( Comment => "Access to s3://" . $s->name, );
$s->policy( <<"JSON");
{
"Version":"2008-10-17",
"Id":"PolicyForCloudFrontPrivateContent",
"Statement":[{
"Sid": "Grant a CloudFront Origin Identity access to support private content",
lib/AWS/S3/Bucket.pm view on Meta::CPAN
"Action": "s3:GetObject",
"Resource": "arn:aws:s3:::@{[ $s->name ]}/*"
}
]
}
JSON
} # end enable_cloudfront_distribution()
sub files {
my ( $s, %args ) = @_;
lib/AWS/S3/Bucket.pm view on Meta::CPAN
See also L<PUT Bucket|http://docs.amazonwebservices.com/AmazonS3/latest/API/index.html?RESTBucketPUT.html>
=head2 policy
Read-only. String of JSON.
Looks something like this:
{
"Version":"2008-10-17",
view release on metacpan or search on metacpan
lib/AWS/SNS/Verify.pm view on Meta::CPAN
use strict;
use warnings;
package AWS::SNS::Verify;
$AWS::SNS::Verify::VERSION = '0.0105';
use JSON;
use HTTP::Tiny;
use MIME::Base64;
use Moo;
use Ouch;
use Crypt::PK::RSA;
lib/AWS/SNS/Verify.pm view on Meta::CPAN
has message => (
is => 'ro',
lazy => 1,
default => sub {
my $self = shift;
return JSON::decode_json($self->body);
}
);
has certificate_string => (
is => 'ro',
lib/AWS/SNS/Verify.pm view on Meta::CPAN
}
return $url_string;
}
sub TO_JSON {
my $self = shift;
return unbless($self);
}
=head1 NAME
lib/AWS/SNS/Verify.pm view on Meta::CPAN
=over
=item body
Required. JSON string posted by AWS SNS. Looks like:
{
"Type" : "Notification",
"MessageId" : "a890c547-5d98-55e2-971d-8826fff56413",
"TopicArn" : "arn:aws:sns:us-east-1:041977924901:foo",
lib/AWS/SNS/Verify.pm view on Meta::CPAN
Ouch
=item *
JSON
=item *
HTTP::Tiny
view release on metacpan or search on metacpan
lib/AWS/SQS/Simple.pm
t/00-load.t
t/pod-coverage.t
t/pod.t
META.yml Module YAML meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
File::Basename 0
File::Find 0
File::Path 0
File::Spec::Functions 0
Getopt::Long 2.36
JSON::PP 2
Pod::Man 0
TAP::Harness::Env 0
perl 5.006
strict 0
warnings 0
view release on metacpan or search on metacpan
lib/AWS/XRay/Segment.pm view on Meta::CPAN
use 5.012000;
use strict;
use warnings;
use JSON::XS ();
use Time::HiRes ();
my $header = qq|{"format":"json","version":1}\n|;
my $json = JSON::XS->new->utf8;
sub new {
my $class = shift;
my $src = shift;
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
}
sub write_mymeta_json {
my $self = shift;
# We need JSON to write the MYMETA.json file
unless ( eval { require JSON; 1; } ) {
return 1;
}
# Generate the data
my $meta = $self->_write_mymeta_data or return 1;
# Save as the MYMETA.yml file
print "Writing MYMETA.json\n";
Module::Install::_write(
'MYMETA.json',
JSON->new->pretty(1)->canonical->encode($meta),
);
}
sub _write_mymeta_data {
my $self = shift;
view release on metacpan or search on metacpan
lib/Aard.pm view on Meta::CPAN
use IO::Uncompress::Inflate qw/inflate/;
use IO::Uncompress::Bunzip2 qw/bunzip2/;
use List::Util qw/sum/;
use JSON::MaybeXS qw/decode_json/;
use UUID::Tiny qw/uuid_to_string/;
use constant HEADER_SPEC => [
[signature => 'Z4' , 4 ],
[sha1sum => 'Z40', 40],
view release on metacpan or search on metacpan
t/00-load.t
t/manifest.t
t/pod-coverage.t
t/pod.t
META.yml Module YAML meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
File::Basename 0
File::Find 0
File::Path 0
File::Spec::Functions 0
Getopt::Long 2.36
JSON::PP 2
Pod::Man 0
TAP::Harness::Env 0
perl 5.006
strict 0
warnings 0
view release on metacpan or search on metacpan
"license" : [
"http://opensource.org/licenses/artistic-license-2.0.php"
]
},
"version" : "0.02",
"x_serialization_backend" : "JSON::PP version 2.27203"
}
view release on metacpan or search on metacpan
"license" : [
"http://opensource.org/licenses/artistic-license-2.0.php"
]
},
"version" : "0.06",
"x_serialization_backend" : "JSON::PP version 2.27400"
}
view release on metacpan or search on metacpan
"class" : "Dist::Zilla::Plugin::MetaConfig",
"name" : "MetaConfig",
"version" : "6.025"
},
{
"class" : "Dist::Zilla::Plugin::MetaJSON",
"name" : "MetaJSON",
"version" : "6.025"
},
{
"class" : "Dist::Zilla::Plugin::GithubMeta",
"name" : "GithubMeta",
"version" : "6.025"
}
},
"x_authority" : "cpan:GENE",
"x_generated_by_perl" : "v5.32.1",
"x_serialization_backend" : "Cpanel::JSON::XS version 4.26",
"x_spdx_expression" : "Artistic-1.0-Perl OR GPL-1.0-or-later"
}
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
}
sub write_mymeta_json {
my $self = shift;
# We need JSON to write the MYMETA.json file
unless ( eval { require JSON; 1; } ) {
return 1;
}
# Generate the data
my $meta = $self->_write_mymeta_data or return 1;
# Save as the MYMETA.yml file
print "Writing MYMETA.json\n";
Module::Install::_write(
'MYMETA.json',
JSON->new->pretty(1)->canonical->encode($meta),
);
}
sub _write_mymeta_data {
my $self = shift;
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
}
sub write_mymeta_json {
my $self = shift;
# We need JSON to write the MYMETA.json file
unless ( eval { require JSON; 1; } ) {
return 1;
}
# Generate the data
my $meta = $self->_write_mymeta_data or return 1;
# Save as the MYMETA.yml file
print "Writing MYMETA.json\n";
Module::Install::_write(
'MYMETA.json',
JSON->new->pretty(1)->canonical->encode($meta),
);
}
sub _write_mymeta_data {
my $self = shift;
view release on metacpan or search on metacpan
},
"system" : {}
}
},
"x_generated_by_perl" : "v5.37.5",
"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
},
"system" : {}
}
},
"x_generated_by_perl" : "v5.37.5",
"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
t/pod-encoding.t
t/pod-spelling.t
t/pod-version.t
t/pod.t
META.yml Module YAML meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
t/manifest.t
t/pod-coverage.t
t/pod.t
xt/boilerplate.t
META.yml Module YAML meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
t/manifest.t
t/pod-coverage.t
t/pod.t
MANIFEST.SKIP
META.yml Module YAML meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
ignore.txt
lib/Acme/AsciiEmoji.pm
LICENSE
Makefile.PL
MANIFEST This list of files
META.json Module JSON meta-data (added by MakeMaker)
META.yml Module YAML meta-data (added by MakeMaker)
README
README.md
t/00-load.t
t/01-emoji.t
view release on metacpan or search on metacpan
"version" : "0.02",
"x_authority" : "cpan:YTURTLE",
"x_contributors" : [
"sazuma <azuma.satoshi@colon.ne.jp>"
],
"x_serialization_backend" : "JSON::PP version 2.94",
"x_static_install" : 1
}
view release on metacpan or search on metacpan
t/01-standard-colors.t
t/02-octarine.t
t/03-pod.t
t/04-podcoverage.t
META.yml Module meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
t/20_bootstrap.t
lib/Acme/AutoLoad.pm
contrib/cwd_guard.pl
contrib/hello_app.cgi
META.yml Module meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
t/00-load.t
t/manifest.t
t/pod-coverage.t
t/pod.t
META.yml Module YAML meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by MakeMaker)