「Sledge::Sessionに便利なアクセサ追加するには」を受けて、Sledge::Sessionにアクセサを追加できるプラグインを作ってみました。下記からダウンロードできます。

Sledge-Plugin-SessionAccessor-0.01.tar.gz

使い方はpodを見てください。…というのもあれなので簡単に説明するとProject::Pages::Baseに下記のようにメソッドと無名関数を定義しておくと、それをベースクラスとしたPagesクラスであれば、$self->session->methodという感じで呼べるようになります。
＃と作っておいてあれだけど、ニーズあるのかなぁ…。ありそうだったらコミットしてみよう。

package Project::Pages::Base;
use Sledge::Plugin::SessionAccessor;
__PACKAGE__->mk_session_accessor(
    method => sub {
        my $self = shift;
        #...
        return $foo
    },
);

package Project::Pages::Root;

use base qw(Project::Pages::Base);

sub dispatch_index {
    my $self = shift;
    my $foo = $self->session->method;
}