【perl】(2)フレームワークを使って、ログイン処理・新規登録を行うプログラム

xamppでは、latinで変換しようとしているので、Shift_JISで変換してね、とお願いしたり、書く処理の結果を返すときのテンプレートをnewしたり。
●●は、パスワード。

package IdaFrameWork;
use base qw/CGI::Application/;
use CGI::Application::Plugin::DBH (qw/dbh_config dbh/);
use Template;

# 初期化
sub cgiapp_init {
    my $self = shift;

    $self->query->charset('UTF-8'); # 文字コードはSfhit_JIS
    $self->dbh_config('DBI:mysql:practice1:localhost', 'root', '●●');
    $self->dbh->prepare('set names utf8')->execute;
}

sub output_with_tt {
	my($self, $tpl, $var) = @_;
	my $tt = Template->new;
	my $out;
	
	$tt->process($tpl, {self => $self, var => $var}, \$out) || die $tt->error();
	return $out;
}

1;