2005-10-28

■ さぶてかー 00:31

id:otsune はさぶてかーなの？

■ うー 20:48

ちょっとてんぱりんぐ

■ あー、だめだめだ。 16:50

↓これは駄目駄目。

■ Sledge::SessionManager にアクセサ追加 14:43

User の ID をセッションに入れとく場合、

my $user = Project::Data::User->retrieve($self->session->param('id'));

とか毎回書くのはダルいので

my $user = $self->session->user;

と書きたいのだが、こういう場合、Sledge::SessionManager::MySQL とかを継承して

package Project::SessionManager::MySQL;
use strict;
use warnings;
use base qw(Sledge::SessionManager::MySQL;
use Project::Data::User;

sub user {
  my $self = shift;
  return Project::Data::User->retrieve($self->param('id'));
}

1;

とかするのが良いんかな。

■ TT2 で FOREACH-ELSE 10:49

ができないのが辛すぎる件。どうなのよ、これ。

[% no_ary = 1 %]
[% FOR entry in entries %]
  [% entry %]
  [% no_ary = 0 %]
[% END %]
[% IF no_ary %]
  からっぽだよ
[% END %]

とかやるの？

■ 枠のやつ 10:00

まららん?が作ってくれたよ!thx!

miyagawa2005/10/28 22:06Session は Sledge::Session オブジェクトなので、SessionManager を継承してもだめっすね。
アクセサをカンタンに追加するプラグインがあってもいいかもしれない

bonnu2005/10/29 11:42[% FOREACH entry = entries %]
...loop
[% END #FOREACH %]
[% UNLESS entries.size %]
...unless
[% END #UNLESS %]
では？

tokuhirom2005/10/29 11:46>miyagawa-san
あー、そうですね。SessionManager じゃなくて Session でした。アクセサが欲しいのは変わりないので、ちょっと練ってみます。
>bonnu さん
あー、なるほど。FOREACH-ELSE に比べると見劣りしますが、これでも十分ですね。

tokuhirom@株主の日記