view release on metacpan or  search on metacpan

share/public/js/jquery-4.0.0.min.js  view on Meta::CPAN

/*! jQuery v4.0.0 | (c) OpenJS Foundation and other contributors | jquery.com/license */
!function(e,t){"use strict";"object"==typeof module&&"object"==typeof module.exports?module.exports=t(e,!0):t(e)}("undefined"!=typeof window?window:this,function(e,t){"use strict";if(!e.document)throw Error("jQuery requires a window with a document")...

t/20-skill-web-routes.t  view on Meta::CPAN

:--------------------------------------------------------------------------------:
HTML:
Skill Route Index Edited
BOOKMARK
my $index_play = $app->handle(
    path        => '/app/route-skill/edit',
    method      => 'POST',
    body        => 'mode=render&instruction=' . _uri_escape($skill_play_instruction),
    headers     => {
        host           => '127.0.0.1',
        'content-type' => 'application/x-www-form-urlencoded',
    },
    remote_addr => '127.0.0.1',
);
is( $index_play->[0], 200, 'installed skill index play POST returns success' );
like( $index_play->[2], qr/Skill Route Index Edited/, 'installed skill index play POST renders the edited transient skill page' );
like( $index_play->[2], qr{href="/app/route-skill/edit" id="view-source-url"}, 'installed skill index play POST keeps the smart-routed view source link' );

my $render = $app->handle(
    path        => '/app/route-skill/foo',
    method      => 'GET',

t/lib/Local/PSGITest.pm  view on Meta::CPAN

        'psgi.nonblocking'  => 0,
    );

    my $content_type = $headers->header('Content-Type');
    my $content_length = length $content;
    $env{CONTENT_TYPE}   = $content_type if defined $content_type;
    $env{CONTENT_LENGTH} = $content_length if $content_length;

    for my $field ( $headers->header_field_names ) {
        next if !defined $field;
        next if lc($field) eq 'content-type';
        next if lc($field) eq 'content-length';
        my $value = $headers->header($field);
        next if !defined $value;
        my $name = uc $field;
        $name =~ s/-/_/g;
        $env{"HTTP_$name"} = $value;
    }

    return \%env;
}