Sledge コントローラのテスト（のアイディア）をつくってみた。 Sledge のコントローラをテストするアプリを今まで書いたことがなかったのです。 package TestBase; use Test::Base -Base; our @EXPORT = qw(run_eval_expected); sub run_eval_expected { run { my $block = shift; my $page = $block->input; eval $block->expected; fail $@ if $@; Sledge::Pages::Base::_destroy_me($page); }; } package TestBase::Filter; use Test::Base::Filter -base; use YAML; use UNIVERSAL::require