web-services - 使用 Perl 构建 Web 服务

Question

我需要为测试建议构建一个服务器端应用程序(小型 Web 服务)。有哪些CPAN用于实现此类任务的模块和 Perl 库？

Answer 1

使用 Plack::Test 测试一个小型 Web 服务:

use Plack::Test;
use Test::More;
test_psgi(
    app => sub {
        my ($env) = @_;
        return [200, ['Content-Type' => 'text/plain'], ["Hello World"]],
    },
    client => sub {
        my ($cb) = @_;
        my $req  = HTTP::Request->new(GET => "http://localhost/hello");
        my $res  = $cb->($req);
        like $res->content, qr/Hello World/;
    },
);
done_testing;