X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F16post.t;h=5ff4fa9f772da4591e710b4be0a45271ffb6c772;hb=9113e2701050e4a0ba3011916043edd24881651e;hp=45abbd3ba352b17c1b9517b5c748844cfe4939b2;hpb=a8ed7612b5afccad8cfda4fe1dc8947bda89516d;p=catagits%2FCatalyst-Runtime.git diff --git a/t/16post.t b/t/16post.t index 45abbd3..5ff4fa9 100644 --- a/t/16post.t +++ b/t/16post.t @@ -2,20 +2,20 @@ package TestApp; use Catalyst qw[-Engine=Test]; -__PACKAGE__->action( - echo => sub { - my ( $self, $c ) = @_; - - for my $field ( $c->req->headers->header_field_names ) { - my $header = ( $field =~ /^X-/ ) ? $field : "X-$field"; - $c->res->headers->header( - $header => $c->req->headers->header($field) ); - } - - $c->res->headers->content_type('text/plain'); - $c->res->output('ok'); +sub echo : Global { + my ( $self, $c ) = @_; + + for my $field ( $c->req->headers->header_field_names ) { + my $header = ( $field =~ /^X-/ ) ? $field : "X-$field"; + $c->res->headers->header( + $header => $c->req->headers->header($field) ); } -); + + $c->res->headers->content_type('text/plain'); + $c->res->output('ok'); +} + +__PACKAGE__->setup; package main;