File Coverage

blib/lib/Plack/Middleware/PathToQuery.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	9	14	64.2
condition	1	3	33.3
subroutine	5	5	100.0
pod	1	1	100.0
total	47	54	87.0

package Plack::Middleware::PathToQuery;

use strict;
use warnings;

# ABSTRACT: Prepend converted PATH_INFO to QUERY_STRING
our $VERSION = 'v0.0.1'; # VERSION

use parent qw(Plack::Middleware);

use URI::Escape;

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

	my $DEBUG = exists $self->{debug} && $self->{debug};

	$DEBUG and $env->{'psgi.errors'}->print('PATH_INFO: '.$env->{PATH_INFO}."\n");
	$DEBUG and $env->{'psgi.errors'}->print('QUERY_STRING: '.$env->{QUERY_STRING}."\n");

	my @pairs;
	if($env->{PATH_INFO} ne '') {
		my $path = $env->{PATH_INFO};
		$path =~ s@^/@@;
		my @components = split '/', $path;
		for my $component (@components) {
			if($component =~ s/^([^-]+)-//) {
				push @pairs, uri_escape($1).'='.uri_escape($component);
			} else {
				push @pairs, uri_escape($component).'=';
			}
		}
		push @pairs, $env->{QUERY_STRING} if $env->{QUERY_STRING} ne '';
		$env->{QUERY_STRING} = join '&', @pairs;
		$env->{PATH_INFO} = '';
	}

	$DEBUG and $env->{'psgi.errors'}->print('PATH_INFO: '.$env->{PATH_INFO}."\n");
	$DEBUG and $env->{'psgi.errors'}->print('QUERY_STRING: '.$env->{QUERY_STRING}."\n");

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

1;

__END__