File Coverage

blib/lib/Mojo/Server/AWSLambda.pm

Criterion	Covered	Total	%
statement	26	40	65.0
branch	0	4	0.0
condition	0	3	0.0
subroutine	8	9	88.8
pod	2	3	66.6
total	36	59	61.0

package Mojo::Server::AWSLambda;

use Mojo::Base 'Mojo::Server';

use Mojo::Server::AWSLambda::Request;
use Mojo::Server::AWSLambda::Response;

use Mojo::Util qw;
use Scalar::Util 'blessed';

our $VERSION = "0.01";


sub load_app {
  my ($self, $path) = @_;

  {
    require FindBin;
    FindBin->again;
    local $ENV{MOJO_APP_LOADER} = 1;
    local $ENV{MOJO_EXE};

    delete $INC{$path};
    my $app = eval
      "package Mojo::Server::Sandbox::@{[md5_sum $path]}; require \$path";
    die qq{Can't load application from file "$path": $@} if $@;
    die qq{File "$path" did not return an application object.\n}
      unless blessed $app && $app->can('handler');
    $self->app($app);
  };
  FindBin->again;

  return $self->app;
};


sub run {
   my $self = shift;
   return sub { $self->call(shift) };
}

sub call {
    my ($self, $env) = @_;

    my $tx = $self->build_tx;

    my $req = Mojo::Server::AWSLambda::Request->new;
    $req->parse($env);
    $tx->req($req);

    $self->emit(request => $tx);

    my $res = bless $tx->res, 'Mojo::Server::AWSLambda::Response';
    $res->output;
}

1;
__END__