Perl日記

日々の知ったことのメモなどです。Perlは最近やってないです。

Mojoことはじめ2

時間がなかったので、Cookieだけ触ってみた。
MVCの作り方がまだわからねー。
参考:「第1回 はじめてのMojo:Mojoを使って自作ウェブアプリをよりポータブルに!|gihyo.jp … 技術評論社
以下、前回のWeb.pmに追記。

package MyMojo::Web;
use strict;
use warnings;
use base 'Mojo';
use Mojo::Cookie::Response;
#use Data::Dumper;

sub handler {
    my ($self, $tx) = @_;

    # Cookie
    my $cookie = Mojo::Cookie::Response->new;
    $cookie->name('foo');
    $cookie->value('bar');
    $cookie->comment('TEST_COOKIE');
    $cookie->domain('localhost');
    $cookie->expires(time + 60*60*24); # 1 day
    $cookie->httponly(1);
    $cookie->max_age(60*60);           # 1 hour
    $cookie->port('80 8080');          # 80 port, 8080 port
    $cookie->secure(1);
    $tx->res->cookies($cookie);

    # Hello world!
    $tx->res->headers->content_type('text/plain');
    $tx->res->body('Hello Mojo!');
#   $tx->res->body(Dumper($tx));
}

1;

トランザクションオブジェクト?に入れればいいのかな。