File Coverage

blib/lib/Sledge/SessionManager/MobileID.pm

Criterion	Covered	Total	%
statement	18	38	47.3
branch	0	4	0.0
condition	0	5	0.0
subroutine	6	10	60.0
pod	0	3	0.0
total	24	60	40.0

package Sledge::SessionManager::MobileID;
use strict;
use warnings;
use base 'Sledge::SessionManager';

our $VERSION = 0.02;

use Digest::SHA1 qw(sha1_hex);
use Time::HiRes qw(gettimeofday);

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

    $page->add_trigger(
        AFTER_INIT => sub {
            my $page = shift;
            $page->construct_session unless $page->session;
            my $session_class = ref($page->{session}) . "::__MobileID";
            {
                no strict 'refs';
                unless (@{"$session_class\::ISA"}) {
                    unshift @{"$session_class\::ISA"}, ref $page->{session};

                    *{"$session_class\::_gen_session_id"} = sub {
                        my $self = shift;

                        return (
                                $ENV{HTTP_X_UP_SUBNO}
                            || $ENV{HTTP_X_JPHONE_UID}
                            || die "can't get moile id !"
                        );
                    };
                }
            }
            $page->{session} = bless +{ %{$page->{session}} }, $session_class;
        }
    );

    bless {}, $class;
}

sub get_session_id {
    my ( $self, $page ) = @_;

    return ( $page->r->header_in("X_UP_SUBNO")
          || $page->r->header_in("X_JPHONE_UID") );
}

sub set_session_id {}


1;
__END__