Minimalist JSON Webapp Framework on a container
2.3K
Minimalist JSON Web Framework written in perl on a container
Need to write a JSON Web Application in perl.
Example.
use strict;
use warnings;
use Amagi;
amagi_init;
our $member = {};
get '/' => sub {
{ members => [ sort keys %$member ] };
};
get '/member/{id:[0-9]+}' => sub {
my ($app, $req) = @_;
my $id = $req->captured->{id};
{ member => $member->{$id} };
};
post '/member/{id:[0-9]+}' => sub {
my ($app, $req) = @_;
my $id = $req->captured->{id};
my $name = $req->param('name') || 'Anonymous';
$member->{$id} = {id => $id, name => $name};
{ message => 'registered' };
};
__PACKAGE__->app;
Then, save as 'app.psgi'.
Example.
FROM ytnobody/amagi
MAINTAINER your name <[email protected]>
ADD app.psgi app.psgi
EXPOSE 7333
CMD plackup -p 7333
That's all.
Content type
Image
Digest
Size
80.9 MB
Last updated
over 10 years ago
docker pull ytnobody/amagi