File Coverage

blib/lib/Plack/Middleware/DebugRequestParams.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	4	4	100.0
condition	3	3	100.0
subroutine	8	8	100.0
pod	1	1	100.0
total	50	50	100.0

package Plack::Middleware::DebugRequestParams;
use 5.008005;
use strict;
use warnings;
use parent qw(Plack::Middleware);
use Text::ASCIITable;
use Plack::Request;
use Text::VisualWidth::UTF8;

our $VERSION = "0.06";

sub call {
    my($self, $env) = @_;

    if (! ($self->{ignore_path} &&  $env->{REQUEST_URI} =~ /$self->{ignore_path}/)) {
        my $req = Plack::Request->new($env);
        my $params = $req->parameters;
        if (%$params) {
            my $table = Text::ASCIITable->new(+{ cb_count => \&Text::VisualWidth::UTF8::width });
            $table->setCols(qw(Parameter Value));
            for my $key (sort keys %$params) {
                my @values = $params->get_all($key);
                for my $value (@values) {
                    $table->addRow($key, $value);
                }
            }
            print STDERR $table;
        }
    }

    return $self->app->($env);
}


1;
__END__