Sledge::Plugin::RedirectReferer

Perl

毎回、リファラチェックするの面倒なので。
どうすかねぇ。



package Sledge::Plugin::RedirectReferer;

use strict;

use warnings;

our $VERSION = '0.01';
sub import {

    my $self = shift;

    my $pkg  = caller;
    no strict 'refs';

    *{"$pkg\::redirect_referer"} = sub {

        my ($self , $url) = @_;

        if ( $self->r->header_in('Referer') ) {

            return $self->redirect($self->r->header_in('Referer'));

        } else {

            return $self->redirect($url);

        }

    };

}
1;

__END__

=head1 NAME
Sledge::Plugin::RedirectReferer - Referer redirect plugin for Sledge
=head1 VERSION
This documentation refers to Sledge::Plugin::RedirectReferer version 0.01
=head1 SYNOPSIS
    package Your::Pages;

    use Sledge::Plugin::RedirectReferer;
    sub dispatch_index {

        my $self = shift;

        return $self->redirect_referer('/if/non/referer');

    }
=head1 DESCRIPTION
Redirect referer, but referer dose't exist redirect $url.
=head1 AUTHOR
Atsushi Kobayashi, 
This library is free software; you can redistribute it and/or modify

it under the same terms as Perl itself.
=cut