[perl]Mojolicious::Plugin::CSRFDefenderが動かなかった件

　久々にチェックしてみたらMojolicious::Plugin::CSRFDefenderのテストが全く通っていなかったので、調べてみました。

原因

　原因はMojoliciousが1.1か1.2くらいに更新したときに、after_dispatchのhookがsessionをストアした後に動作するようになっていたため、sessionに内容を入れることができなくなっていたためでした。Mojolicous::Controllerのrenderedメソッドの部分です。

sub rendered {
  my ($self, $status) = @_;

  # Disable auto rendering
  $self->render_later;

  # Make sure we have a status
  my $res = $self->res;
  $res->code($status) if $status;

  # Finish transaction
  my $stash = $self->stash;
  unless ($stash->{'mojo.finished'}) {
    $res->code(200) unless $res->code;
    my $app = $self->app;
    $app->sessions->store($self); # これが先にあるため、after_dispatch hook内部でsessionをいじっても反映されない
    $app->plugins->run_hook_reverse(after_dispatch => $self);
    $stash->{'mojo.finished'} = 1;
  }
  $self->tx->resume;

  return $self;
}