package TestAppIncludePath;

use strict;

use base qw(CGI::Application);

use CGI::Application::Plugin::TT (
              TEMPLATE_OPTIONS => {
                        POST_CHOMP   => 1,
                        DEBUG => 1,
              },
);

sub setup {
    my $self = shift;
    $self->start_mode('test_mode');
    $self->run_modes(test_mode => 'test_mode' );
}

sub test_mode {
    my $self = shift;

    my $path = $ENV{TT_INCLUDE_PATH};
    $self->tt_include_path([$path]);
    return $self->tt_process({ include_path => $path });
}

1;