view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

        - Fixed a failing output_encoding.t because of FCGI dependencies
        - Improved Plack::Test::Suite documentation

0.9977  Sun May  1 12:16:08 PDT 2011
    [BUG FIXES]
        - Fixed ConditionalGET to not die with streaming interface (reported by Paul Ervamaa)
        - Add a reason string to CGI/FastCGI Status header to comply with RFC 3875 (Stephen Clouse)
        - Fixed a CGI/FastCGI handler to ensure newlines are not mangled on Win32 platforms (Christian Walde)

    [IMPROVEMENTS]
        - localize @ARGV to empty when evaluating a PSGI application (https://github.com/sukria/Dancer/issues/473)
        - Fixed the use of Getopt::Long to make the pass_through flag local
        - Middleware::JSONP now supports more response types such as IO::Handle (reported by Theory)

0.9976  Fri Apr  8 18:07:11 PDT 2011
    [NEW FEATURES]
        - Support setting content_type in App::File (ajgb)

    [IMPROVEMENTS]
        - Document fixes (jhannah)
        - Skip bad tests failing on LWP 6 (daxim)

lib/Plack/Runner.pm  view on Meta::CPAN

# delay the build process for reloader
sub build(&;$) {
    my $block = shift;
    my $app   = shift || sub { };
    return sub { $block->($app->()) };
}

sub parse_options {
    my $self = shift;

    local @ARGV = @_;

    # From 'prove': Allow cuddling the paths with -I, -M and -e
    @ARGV = map { /^(-[IMe])(.+)/ ? ($1,$2) : $_ } @ARGV;

    my($host, $port, $socket, @listen);

    require Getopt::Long;
    my $parser = Getopt::Long::Parser->new(
        config => [ "no_auto_abbrev", "no_ignore_case", "pass_through" ],
    );

lib/Plack/Util.pm  view on Meta::CPAN

    $class . ".pm";
}

sub _load_sandbox {
    my $_file = shift;

    my $_package = $_file;
    $_package =~ s/([^A-Za-z0-9_])/sprintf("_%2x", unpack("C", $1))/eg;

    local $0 = $_file; # so FindBin etc. works
    local @ARGV = ();  # Some frameworks might try to parse @ARGV

    return eval sprintf <<'END_EVAL', $_package;
package Plack::Sandbox::%s;
{
    my $app = do $_file;
    if ( !$app && ( my $error = $@ || $! )) { die $error; }
    $app;
}
END_EVAL
}