AWS-Lambda

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         "recommends" : {
            "AWS::XRay" : "0.09"
         },
         "requires" : {
            "HTTP::Tiny" : "0.076",
            "JSON::Types" : "0.05",
            "JSON::XS" : "4.0",
            "MIME::Base64" : "0",
            "Plack" : "1.0047",
            "Plack::Middleware::ReverseProxy" : "0.16",
            "Try::Tiny" : "0.30",
            "URI::Escape" : "0",
            "perl" : "5.026000"
         }
      },
      "test" : {
         "requires" : {
            "File::Slurp" : "9999.25",
            "Starman" : "0",
            "Test::Deep" : "1.128",
            "Test::More" : "0.98",

META.yml  view on Meta::CPAN

    file: lib/AWS/Lambda/ResponseWriter.pm
recommends:
  AWS::XRay: '0.09'
requires:
  HTTP::Tiny: '0.076'
  JSON::Types: '0.05'
  JSON::XS: '4.0'
  MIME::Base64: '0'
  Plack: '1.0047'
  Plack::Middleware::ReverseProxy: '0.16'
  Try::Tiny: '0.30'
  URI::Escape: '0'
  perl: '5.026000'
resources:
  bugtracker: https://github.com/shogo82148/p5-aws-lambda/issues
  homepage: https://github.com/shogo82148/p5-aws-lambda
  repository: https://github.com/shogo82148/p5-aws-lambda.git
version: 0.4.3
x_contributors:
  - 'ICHINOSE Shogo <shogo82148@gmail.com>'
  - 'Jose Luis Martinez <jlmartinez@capside.com>'

cpanfile  view on Meta::CPAN

requires 'perl', '5.026000';
requires 'HTTP::Tiny', '0.076';
requires 'JSON::XS', '4.0';
requires 'Try::Tiny', '0.30';
requires 'Plack', '1.0047';
requires 'Plack::Middleware::ReverseProxy', '0.16';
requires 'JSON::Types', '0.05';
requires 'URI::Escape';
requires 'MIME::Base64';

recommends 'AWS::XRay', '>=0.09';

on 'test' => sub {
    requires 'Test::More', '0.98';

examples/s3-get-object/cpanfile  view on Meta::CPAN

requires 'perl', '5.026000';
requires 'Paws';
requires 'Try::Tiny';

examples/s3-get-object/handler.pl  view on Meta::CPAN

use utf8;
use warnings;
use strict;
use 5.30.0;
use lib "$ENV{'LAMBDA_TASK_ROOT'}/extlocal/lib/perl5";
use Paws;
use Try::Tiny;
use URI::Escape;

my $obj = Paws->service('S3', region => 'ap-northeast-1');

sub handle {
    my $payload = shift;
    # Get the object from the event and show its content type
    my $bucket = $payload->{Records}[0]{s3}{bucket}{name};
    my $key = uri_unescape($payload->{Records}[0]{s3}{object}{key} =~ s/\+/ /gr);
    my $resp = try {

lib/AWS/Lambda/Bootstrap.pm  view on Meta::CPAN

package AWS::Lambda::Bootstrap;
use 5.026000;
use utf8;
use strict;
use warnings;
use HTTP::Tiny;
use JSON::XS qw/decode_json encode_json/;
use Try::Tiny;
use AWS::Lambda;
use AWS::Lambda::Context;
use AWS::Lambda::ResponseWriter;
use Scalar::Util qw(blessed);
use Exporter 'import';

our @EXPORT = ('bootstrap');

sub bootstrap {
    my $handler = shift;

lib/AWS/Lambda/PSGI.pm  view on Meta::CPAN

use 5.026000;
use utf8;
use strict;
use warnings;
use URI::Escape;
use Plack::Util;
use bytes ();
use MIME::Base64;
use JSON::Types;
use Encode;
use Try::Tiny;
use Plack::Middleware::ReverseProxy;
use AWS::Lambda;
use Scalar::Util qw(reftype);
use JSON::XS qw(encode_json);

sub new {
    my $proto = shift;
    my $class = ref $proto || $proto;
 
    my $self;

t/03_init_error.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Test::More;

use FindBin;
use lib "$FindBin::Bin/lib";
use BootstrapMock;
use AWS::Lambda::Context;
use Try::Tiny;

my $error;
my $bootstrap = BootstrapMock->new(
    handler     => "init_error.handle",
    runtime_api => "example.com",
    task_root   => "$FindBin::Bin/test_handlers",
    lambda_init_error => sub {
        my $self = shift;
        $error = shift;
    },

t/04_handler_not_found.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Test::More;

use FindBin;
use lib "$FindBin::Bin/lib";
use BootstrapMock;
use AWS::Lambda::Context;
use Try::Tiny;

my $error;
my $bootstrap = BootstrapMock->new(
    handler     => "echo.handle_not_found",
    runtime_api => "example.com",
    task_root   => "$FindBin::Bin/test_handlers",
    lambda_init_error => sub {
        my $self = shift;
        $error = shift;
    },

 view all matches for this distribution
 view release on metacpan -  search on metacpan