root/lang/perl/HTTP-Engine-Middleware/branches/declare/lib/HTTP/Engine/Middleware/Encode.pm @ 29306

package HTTP::Engine::Middleware::Encode;
use HTTP::Engine::Middleware;
use Data::Visitor::Encode;

before_handle {
    my ( $c, $self, $req ) = @_;

    if (( $req->headers->header('Content-Type') || '' ) =~ /charset=(.+);?$/ )
    {

        # decode parameters
        my $encoding = $1;
        for my $method (qw/params query_params body_params/) {
            $req->$method(
                Data::Visitor::Encode->decode( $encoding, $req->$method ) );
        }
    }
    $req;
};

__MIDDLEWARE__