2009-05-17

土日

土曜日は寝たり起きたりマンガ読んだりぼんやり過ごした。
夜になってから id:ikasam_a さんの着信に気が付き、折り返したら id:dann さん、id:tomyhero さんと集まっていたらしく、今から来られるかという話だったのでのってみた。終電ギリギリだったww

町田まで ikasam_a さんに迎えに来てもらい、dann さん tomyhero さんとも合流。dann さんはすでに眠そうだったw

そんな感じで明け方まであーでもないこーでもないとかゆってた。夜中に呼び出されて集まってみたりとか久々で楽しかったす！

日曜日はそのあおりで15時くらいまで寝てたw
over30--

起きてから少しぐったりしつつ乾きそうなものだけ洗濯、1F の部屋の片付けを開始した。
1F の片付けを始めたら、引っ越しにあたって 2F もやっておいた方がいいかということで手を付けた。要らないものをゴミ袋に詰めまくってたら、2F の内容物が半分に。

10Mbps の NIC が妙にたくさんあった気がするw
あとは 1F にある粗大ゴミの手続きだなぁ。これでだいぶ引っ越せる感が出てきた気がする。

2009-05-14

Cat 5.71001 で chaind 使うと起動時に warnings がでる

perl catalyst

Catalyst::DispatchType::Chained で Text::SimpleTable 作るとこ、カラムが一個多いと思う。

--- /opt/local/lib/perl5/site_perl/5.8.8/Catalyst/DispatchType/Chained.pm.org	2009-05-14 11:54:08.000000000 +0900
+++ /opt/local/lib/perl5/site_perl/5.8.8/Catalyst/DispatchType/Chained.pm	2009-05-14 11:54:54.000000000 +0900
@@ -46,7 +46,7 @@
 
     my $column_width = Catalyst::Utils::term_width() - 35 - 9;
     my $paths = Text::SimpleTable->new(
-       [ 35, 'Path Spec' ], [ 36, 'Private' ], [ $column_width, 'Private' ]
+       [ 35, 'Path Spec' ], [ $column_width, 'Private' ]
     );
 
     ENDPOINT: foreach my $endpoint (

RT にも書いてきた。

追記

返事きた。svn trunk では直ってるので次のリリースに含めるよってことらしい。

2009-05-13

C:C::Resources が catamoose 対応されてる！

perl catalyst

早いw 天才ですか！ id:ikasam_a++

catamoose 対応ブランチ

ちなみに現行の Resources と比べるとだいぶ変わってるw

master ブランチ

2009-05-10

Cat 5.80003 で C:C:Resources 0.04 のテストがコケる

perl catalyst

なんか、修正してコミットしようかとか思ったんだけど、色々調べてどうしたらいいのかわからんくなったので、気が付いたことをメモっておきます。
以下の三つをなおすと期待した挙動はします。unattached_action の対処方法で controller に直接書く以外の方法がわかればテストも通るとおもう。

$class->_action_cache

Catalyst::Controller::Resource の setup_actions 内で $class->_action_cache が使われてるけど、Catalyst::AttrContainer がもう使われてないっぽい。（クラス自体はある）

$class->_action_cache のところをコメントアウトすると動く

sub setup_actions {
    my ($self, $map_to, $maps) = @_;
    my $class = ref $self || $self;

#     my @action_cache = @{ $class->_action_cache };
    while (my ($action, $map) = each %$maps) {
        next unless my $code = $class->can($action);
        $map = { method => uc $map } unless ref($map) eq 'HASH';

        my @attrs = $self->_construct_action_attributes($map_to, $map);
        unshift @attrs => @{ attributes::get($code) || [] };

#         # rewrite cache
#         if (my $cache = first { $code eq $_->[0] } @action_cache) {
#             $cache->[1] = [@attrs];
#         }
#         else {
#             push @action_cache => [ $code => [@attrs] ];
#         }
#         $class->_attr_cache->{$code} = [@attrs];
        attributes->import($class, $code, @attrs);
    }

#     # set action_cache
#     $class->_action_cache(\@action_cache);
}

Catalyst::DispatchType::Chained#list の unattached_actions に引っかかる

Catalyst::DispatchType::Chained の Line 113 あたり。5.7 までは chain 元があるかないかとか見てなかったんだけど、追加されたっぽい。

そもそも C:C:Resource の setup_resources で collection と member を追加するようになってるんだけど、DispatchType::Chained の list の方が先に評価されてるとかそういう感じ？

CATALYST_DEBUG=1 で prove 走らせると以下のように出力されます。

[debug] Unattached Chained actions:

.-------------------------------------+--------------------------------------.
| Private                             | Missing parent                       |
+-------------------------------------+--------------------------------------+
| /account/create                     | /account/collection                  |
| /account/destroy                    | /account/member                      |
...

ちなみに MyApp::Controller::* に sub collection {} と sub member {} を直接書くと回避できる。hmm...

belongs_to した時の挙動が変わってしまう

MyApp::Controller::Users::Articles を M:C::Users に blongs_to させておくと例えば各記事の期待する path は /users/1/articles/1 となるんだけど、実際には /users/1/users/articles/1 になる。5.7 系だと期待通り。

この patch あてると 5.8 でも期待通りのどうさになります。これだけコミットしようかとも考えたんだけど、テストが通らないままというのもなんなので。さーせん >_<

*** lib/Catalyst/Controller/Resource.pm.org     2009-05-10 16:53:44.000000000 +0900
--- lib/Catalyst/Controller/Resource.pm 2009-05-10 16:55:05.000000000 +0900
***************
*** 73,79 ****
  
  sub _parse_PathPrefix_attr {
      my ($self, $c, $name, $value) = @_;
!     return PathPart => $self->path_prefix;
  }
  
  sub new {
--- 73,79 ----
  
  sub _parse_PathPrefix_attr {
      my ($self, $c, $name, $value) = @_;
!     return PathPart => $self->{path} || $self->path_prefix;
  }
  
  sub new {

「何言ってんだ、こいつ」と思ったら捕まえてくださいw ＞ id:ikasam_a

2009-05-06

WAFthon at kayac 行ってきた

kmkrktkr!*1 ということで、angelos チームの一員としてkayac さんにお邪魔してきました。僕はあまり WAF と関係ないことしてましたがw Authentication、考えること多すぎる。

今日は大幅に dann さんに遅れを取って到着しました。油断した >_<

今日やったことはこんな感じ。

emacs に perl-completion いれた
Authentication について考える
- Catalyst::Plugin::Authentication を読み直す
- HTTP::Engine::Middleware に Authentication 置くとしたら、HTTP::Session 依存？
  - Authentication::Realm をうまく切り離せばいい？
  - 一旦単独のモジュールとして切り離して、その後 HE::Middleware なり、Angelos 側に統合するなりすればいい？
- 関係ないけど途中まで"リアルム"って発音してたのに気が付いて"レルム"と言うようにしたw
  - 知ってるんだけど、脳内では気が付くとリアルムといってるな>_
Catalyst::Controller::AllowDisable を Catalyst 5.8 にあわせて修正して cpan up
- 使ったこと無いのであってるかわからないというか、RT で言われたままに書き換えました！
  - まだ indexing されてない？あとで確かめる。
Chaostr の Service 部分を Mouse 化した。Catalyst が Moose 化したので、ホントは Any::Moose 化したいんだけど、Angelos からパクってきた Chaostr::Class を Any::Moose するにはどうしたらいいかを考えないとダメだ。
- Chaostr::Service には plugin 機構があるんだけど、この辺を Role とかでうまいことやりたい。

終わった後には、bowls でどんぶりと前菜を頂きました。ごちそうさまでした！
typester さん、kayac のみなさん、ありがとうございました。
また、是非行きたいです！

*1:カマクラキタコレ

2009-05-03

まるさんの結婚式行ってきた

結婚披露宴は親族のみだったようで二次会から参加した。受付開始時刻を二次会開始時刻と間違えて行ったので少し早めの到着だったけど、すでに見覚えのあるメンツが何人かいた。

そして受付はいつも芝居の受付をやってる人だったりして、「これから開演ですか？」という感じだったw
まめさんは二次会のしきりをしていて、釜さんは音響と、ホントにまんまだなぁと思った。

途中チームに分かれて、お題にあわせて絵を描くというゲームがあったんだけど、劇団員チームは何かやらないとすまない性分が見え隠れしていて面白かった。新郎側の友人方も元気がある人が多くて負けず劣らずで、せんとくんがお題の時はかっぱのおやどさんの奮闘虚しく持ってかれましたねー。

2次会が終わってからは3次会へ参加し朝まで飲み明かしてまいりました。まるで打ち上げでしたw
しかも3次会は HARI うっずという彼らが高校の時の演劇部の集いになっていて、そんな中に朝までとけ込んできた。同級生仲いいなぁ。

そんな感じで朝帰ってきてから写真を PC に移してカメラを会社に置いてきて、戻ってきてから寝てた。今日は寝てた。あー。ここ数年では飲まない量を飲んでたしなぁ。全部カシスオレンジばっかりだけどｗ

2009-05-02

定額給付金が支給されました

いや、まだ申請も出してないんですけどもw

まんがサイエンス 1〜11巻
BIOMEGA 1〜6巻
マップス愛蔵版 5巻

の全18冊です。

BIOMEGA はつたくに借りた BLAME! がきっかけでファンになった弐瓶勉さんのマンガ。今はまた新連載やってる見たいですね。
BIOMEGA は、ストーリー的な筋道があって BLAME! とはまた違った面白さがあって、ぐいぐい引き込まれた。実際のところ、どこまであらかじめ考えておいた話なんだろう。最後がかなりうまくまとまってたと思うんだけど、この流れでこじつけた部分とかあるのかなぁ。
複物主が発芽した後、主要キャラのうち何人かがそのまま登場しなかったあたりとかは、別途また書いて欲しい感じがある。

まんがサイエンスは、学研に掲載されてるあさりよしとおさんの学習マンガ。書いてあることは古いので現在はあまりそのまま鵜呑みにできないけど、まぁ読み物としては面白いと思う。というか、まだ1巻に手を出してるだけだけど。あさりさんは、少し興味があったけど手をほとんど出して無くて*1、以前に id:nitorino さんに借りたなつのロケットを読んでから、機を見て全巻買おうと思ってた。なつのロケットはとても良かったです。
あさりよしとおといえば、藤田さんの師匠なんだよね。絵柄とか作風が全然違う気がするけど、連絡船奇譚の頃の絵とかは近い雰囲気あるか。

マップスは以前買ってたやつの続き。