File Coverage

blib/lib/Plack/Middleware/LowerUrl.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	3	6	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	28	31	90.3

use strict;
use warnings;
package Plack::Middleware::LowerUrl;
BEGIN {
  $Plack::Middleware::LowerUrl::AUTHORITY = 'cpan:LOGIE';
}
{
  $Plack::Middleware::LowerUrl::VERSION = '0.01';
}
use parent qw( Plack::Middleware );

sub call {
  my ($self, $env) = @_;
  if ( $env->{REQUEST_URI} ) {
    my ($path, $params) = split(/\?/, $env->{REQUEST_URI});
    $path = lc $path;
    $env->{REQUEST_URI} = join('?', $path, $params);
  }
  if ( $env->{PATH_INFO} ) {
    $env->{PATH_INFO} = lc $env->{PATH_INFO} if $env->{PATH_INFO};
  }
  my $res = $self->app->($env);
  return $res;
}

1;

__END__