package MyApp2::Controller::Bar;
use Kelp::Base 'MyApp2::Controller';
attr last_value => 1;
sub empty { }
sub naughty_secret { "I control the Bar" }
sub test_inherit { "OK" }
sub test_template
{
    return $_[0]->template('0');
}
sub test_res_template
{
    $_[0]->res->template('0');
}
sub before_finalize
{
    my $self = shift;
    $self->res->header('X-Controller' => 'Bar');
}
sub test_persistence
{
    my $self = shift;
    my $last = $self->last_value;
    $self->last_value($last + 1);
    return $last;
}
sub after_unrendered
{
    my ($self, $match) = @_;
    $self->res->render('whoops');
}
sub build
{
    my $self = shift;
    my $r = $self->routes;
    $r->add("/empty", "Bar::empty");
    $r->add("/blessed_bar", "Bar::blessed");
    $r->add("/blessed_bar2", "bar#blessed");
}
1;