File Coverage

blib/lib/CGI/Application/Plugin/Redirect.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	27	27	100.0

package CGI::Application::Plugin::Redirect;

use strict;
use vars qw($VERSION @EXPORT);

$VERSION = '1.00';

require Exporter;

@EXPORT = qw(
  redirect
);

sub import { goto &Exporter::import }

sub redirect {
    my $self     = shift;
    my $location = shift;
    my $status   = shift;

    # The eval may fail, but we don't care
    eval {
        $self->run_modes( dummy_redirect => sub { } );
        $self->prerun_mode('dummy_redirect');
    };

    if ($status) {
        $self->header_add( -location => $location, -status => $status );
    } else {
        $self->header_add( -location => $location );
    }
    $self->header_type('redirect');
    return;
}

1;
__END__