view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

        - Update tests to not throw warnings with newer versions of Catalyst.
        - Fix $c->req->remote_user with this engine.
        - Clarify use with non-standard ports.
        - Fixes RT#61707, RT#61706, RT#61704, RT#36829

1.13
        - Workaround change in LWP that broke a cookie test (RT #40037)
        - Update streaming test to latest 5.70

1.12    2008-02-20 09:00:00
        - Fixed bug where %2b in query parameter is doubly decoded to ' ', instead of '+'
          (Gavin Henry, Tatsuhiko Miyagawa)
        - Fixed bug where req->base and req->uri would include a port number when running
          in SSL mode.
        - Fixed warning when a non-trivial regex is used in a LocationMatch block.
          (Steffen Schwigon)
        - Clear the value of $c->engine->return() before each request.
        - Added support for 'PerlSetVar CatalystDisableLocationMatch 1' to disable check
          for a LocationMatch regex to set base path.

1.11    2007-05-18 08:30:00

t/author-live_engine_request_parameters.t  view on Meta::CPAN

        'Catalyst::Request parameters' );
}

{
    my $creq;
    ok( my $response = request("http://localhost/dump/request?q=foo%2bbar"),
        'Request' );
    ok( $response->is_success, 'Response Successful 2xx' );
    is( $response->content_type, 'text/plain', 'Response Content-Type' );
    ok( eval '$creq = ' . $response->content );
    is $creq->{parameters}->{q}, 'foo+bar', '%2b not double decoded';
}

{
    my $creq;

    my $parameters = {
        'a'     => [qw(A b C d E f G)],
        '%'     => [ '%', '"', '& - &' ],
        'blank' => '',
    };

t/lib/TestApp/Controller/Action/Chained.pm  view on Meta::CPAN

sub capture_end : Chained('wurst') Args(0)        PathPart('') { }


# */search vs doc/*
sub view : Chained('/') PathPart('chained') CaptureArgs(1) {}
sub star_search : Chained('view') PathPart('search') Args(0) { }
sub doc_star : Chained('/') PathPart('chained/doc') Args(1) {}

sub return_arg : Chained('view') PathPart('return_arg') Args(1) {}

sub return_arg_decoded : Chained('/') PathPart('chained/return_arg_decoded') Args(1) {
    my ($self, $c) = @_;
    $c->req->args([ map { decode_entities($_) } @{ $c->req->args }]);
}

sub roundtrip_urifor : Chained('/') PathPart('chained/roundtrip_urifor') CaptureArgs(1) {}
sub roundtrip_urifor_end : Chained('roundtrip_urifor') PathPart('') Args(1) {
    my ($self, $c) = @_;
    # This should round-trip, always - i.e. the uri you put in should come back out.
    $c->res->body($c->uri_for($c->action, $c->req->captures, @{$c->req->args}, $c->req->parameters));
    $c->stash->{no_end} = 1;