The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package DTS_UT::Controller;

use strict;
use warnings;
use base qw(CGI::Application);
use CGI::Application::Plugin::Config::YAML;

sub cgiapp_init {

    my $self = shift;

    # fetchs value from $ENV{CGIAPP_CONFIG_FILE}
    $self->config_file();

}

1;
__END__

=pod

=head1 NAME

DTS_UT::Controller - Controller superclass for DTS Unit Testing

=head1 SYNOPSIS

  use DTS_UT::Controller;

=head1 DESCRIPTION

C<DTS_UT::Controller> is a MVC Controller superclass. It should be used by subclasses to have easier configuration by an
YAML file.

C<DTS_UT::Controller> will use an YAML file for configuration. The complete pathname of the YAML should be available in
the environment variable C<CGIAPP_CONFIG_FILE>. For Apache server, this must be done with a C<SetEnv> directive. For IIS, 
declaring a global environment variable will do it, just remember to restart IIS after doing that.

=head2 EXPORT

None by default.

=head1 SEE ALSO

=over

=item *
Check out documentation of C<DTS_UT::Controller::MainController> for more information of implementation details.

=item *
L<CGI::Application::Plugin::Config::YAML>

=item *
L<CGI::Application>

=back

=head1 AUTHOR

Alceu Rodrigues de Freitas Junior, E<lt>arfreitas@cpan.orgE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2008 by Alceu Rodrigues de Freitas Junior

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.8 or,
at your option, any later version of Perl 5 you may have available.


=cut