The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

YAPPO / HTTP-Engine-Middleware-0.22 / lib / HTTP / Engine / Middleware / DoCoMoGUID.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
—
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59

              
package HTTP::Engine::Middleware::DoCoMoGUID;
use HTTP::Engine::Middleware;
use Scalar::Util ();
use HTML::StickyQuery::DoCoMoGUID;
after_handle {
    my ( $c, $self, $req, $res ) = @_;
    unless ($req->can('mobile_attribute')) {
        warn 'HTTP::Engine::Middleware::DoCoMoGUID is dependent on HTTP::Engine::Middleware::MobileAttribute. Please use together with HTTP::Engine::Middleware::MobileAttribute';
        return $res;
    }
    if ( $res && $res->status == 200
        && $res->content_type =~ /html/
        && not( Scalar::Util::blessed( $res->body ) )
        && $req->mobile_attribute->is_docomo
        && $res->body )
    {
        my $body = $res->body;
        $res->body(
            do {
                my $guid = HTML::StickyQuery::DoCoMoGUID->new;
                $guid->sticky(
                    scalarref => \$body,
                );
            }
        );
    }
    $res;
};
__MIDDLEWARE__
__END__
=head1 NAME
HTTP::Engine::Middleware::DoCoMoGUID - append guid=ON on each anchor tag and form action
=head1 SYNOPSIS
This module appends ?guid=ON on each anchor tag and form action
This feature is needed by Japanese mobile web site developers.
=head1 AUTHORS
tokuhirom
yappo
nekokak
=head1 SEE ALSO
L<HTML::StickyQuery::DoCoMoGUID>
=cut