Yet Another CPAN Grep

Test-RestAPI ( J/JA/JASEI/Test-RestAPI-0.1.6.tar.gz, JASEI, 2016; MetaCPAN )

Test-RestAPI/lib/Test/RestAPI.pm ( view source; MetaCPAN )

filename);
use Test::RestAPI::MojoGenerator;
use Port::Selector;
use Path::Tiny;
use Mojo::JSON qw(decode_json);
use Mojo::UserAgent;

use constant WINDOWS => ($^O eq 'MSWin32');

BEGIN {
    if (WIND



    my @lines;
    while (my $line = <$fh>) {
        chomp $line;

        push @lines, decode_json($line);
    }

    return \@lines;
}


sub DESTROY {
    my ($self) = @_;

    if ($^O eq 'MSWin3

Test-RestAPI ( J/JA/JASEI/Test-RestAPI-0.1.6.tar.gz, JASEI, 2016; MetaCPAN )

Test-RestAPI/lib/Test/RestAPI/MojoGenerator.pm ( view source; MetaCPAN )

F', $endpoints));
% my ($endpoints) = @_;
use Mojolicious::Lite;
use Path::Tiny;
use Mojo::JSON qw(encode_json);

% foreach my $endpoint (@$endpoints) {
<%= $endpoint->method %> '<%= $endpoint->path %

b {
    my ($c) = @_;

    path(app->home(), "<%= $endpoint->path_as_filename %>")->append(encode_json($c->req->body)."\n");

    $c->render(%{<%= $endpoint->render_as_string %>});
};
% }

any '/app_m