File Coverage

blib/lib/HTTP/Session/State/GUID.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package HTTP::Session::State::GUID;
use strict;
use warnings;
use base qw/HTTP::Session::State::MobileAttributeID/;
use HTML::StickyQuery::DoCoMoGUID;
use HTTP::Session::State::Mixin::ResponseFilter qw/response_filter/;

sub html_filter {
    my ($self, $session_id, $html) = @_;
    Carp::croak "missing session_id" unless $session_id;

    my $sticky = HTML::StickyQuery::DoCoMoGUID->new;
    return $sticky->sticky(
        scalarref => \$html,
    );
}

sub redirect_filter {
    my ( $self, $session_id, $path ) = @_;
    Carp::croak "missing session_id" unless $session_id;

    my $uri = URI->new($path);
    $uri->query_form( $uri->query_form, guid => 'ON' );
    return $uri->as_string;
}

1;
__END__