File Coverage

blib/lib/Mojolicious/Plugin/BindSessionToIP.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	6	6	100.0
condition	4	5	80.0
subroutine	7	7	100.0
pod	1	1	100.0
total	49	50	98.0

package Mojolicious::Plugin::BindSessionToIP;
use Mojo::Base 'Mojolicious::Plugin';

our $VERSION = '0.02';
use v5.10;
use Data::Dumper;

sub register {
    my ( $self, $app, $conf ) = @_;

    # On error callback
    my $on_error;
    if ( $conf->{on_error} && ref($conf->{on_error}) eq 'CODE' ) {
        $on_error = $conf->{on_error};
    } else {
        $on_error = sub { shift->redirect_to('/'); };
    }

    $app->hook(
        before_routes => sub {
            my ($c) = @_;

            my $stored_ip = $c->session('bind_session_to_ip.ip') // '';
            my $req_ip    = $c->remote_addr;

            if ( $stored_ip ne $req_ip ) {
                if ($stored_ip) {
                    $c->app->log->debug("BindSessionToIP: IP changed from [$stored_ip] to [$req_ip]");

                    $self->_destroy_session($c);
                    $c->session('bind_session_to_ip.ip' => $req_ip);
                    return $on_error->($c);
                }

                $c->session('bind_session_to_ip.ip' => $req_ip);
            }

            return 1;
        },
    );
}


sub _destroy_session {
    my ( $self, $c ) = @_;
    my $session = $c->session;

    foreach my $key (keys %$session) {
        $session->{$key} = '';
    }
}

1;
__END__