File Coverage

lib/PAGI/App/Redirect.pm

Criterion	Covered	Total	%
statement	22	24	91.6
branch	3	6	50.0
condition	4	7	57.1
subroutine	6	6	100.0
pod	0	2	0.0
total	35	45	77.7

package PAGI::App::Redirect;

use strict;
use warnings;
use Future::AsyncAwait;

=head1 NAME

PAGI::App::Redirect - URL redirect app

=head1 SYNOPSIS

    use PAGI::App::Redirect;

    my $app = PAGI::App::Redirect->new(
        to => '/new-location',
        status => 301,
    )->to_app;

=cut

sub new {
    my ($class, %args) = @_;

    return bless {
        to => $args{to},
        status => $args{status} // 302,
        preserve_query => $args{preserve_query} // 1,
    }, $class;
}

sub to_app {
    my ($self) = @_;

    my $to = $self->{to};
    my $status = $self->{status};
    my $preserve_query = $self->{preserve_query};

    return async sub  {
        my ($scope, $receive, $send) = @_;
        my $location = ref $to eq 'CODE' ? $to->($scope) : $to;

        if ($preserve_query && $scope->{query_string}) {
            my $sep = $location =~ /\?/ ? '&' : '?';
            $location .= $sep . $scope->{query_string};
        }

        await $send->({
            type => 'http.response.start',
            status => $status,
            headers => [
                ['location', $location],
                ['content-type', 'text/plain'],
                ['content-length', 0],
            ],
        });
        await $send->({ type => 'http.response.body', body => '', more => 0 });
    };
}

1;

__END__