nichtich/Redirect.pm

## Redirect.pm
use strict;
use warnings;
package Plack::App::LocalRedirect;

use parent 'Plack::Component';
use Plack::Request;
use URI::Escape;
# use Plack::Util::Accessor qw(path);

sub call {
    my ($self, $env) = @_;
    my $req = Plack::Request->new( $env );

    my $path = $self->path($env) || '/';
    $path =~ s!^/!!;

    my $location = $req->base . uri_escape( $path );

    [ 302, [ Location => $location ],
           [ "<html><body><a href=\"$location\">$location</a></body></html>"] ];
}

sub path { # override this in you subclass or use accessor ?
    my ($self, $env) = @_;
    return '/';
}

1;
	use strict;
	use warnings;
	package Plack::App::LocalRedirect;

	use parent 'Plack::Component';
	use Plack::Request;
	use URI::Escape;
	# use Plack::Util::Accessor qw(path);

	sub call {
	my ($self, $env) = @_;
	my $req = Plack::Request->new( $env );

	my $path = $self->path($env) \|\| '/';
	$path =~ s!^/!!;

	my $location = $req->base . uri_escape( $path );

	[ 302, [ Location => $location ],
	[ "<html><body><a href=\"$location\">$location</a></body></html>"] ];
	}

	sub path { # override this in you subclass or use accessor ?
	my ($self, $env) = @_;
	return '/';
	}

	1;