tokuhirom@株主の日記

■ 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;

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