view public_html/cgi-bin/handler.pl @ 6:2d1a0a75fc49

added css, templates
author sergey
date Mon, 12 May 2014 18:05:30 +0400
parents aac1085b256d
children
line wrap: on
line source

#!/usr/bin/perl -wT
#-d:NYTProf
use strict;

BEGIN {
    require "./_config.pm";
}

use CGI;
use IMPL::require {
	TApp => 'Benzin::Web::Application'
};

eval {
	my $instance = TApp->spawn;
	
	$instance->Run();
};
if ($@) {
	print CGI::header(-status => 500, type => 'text/plain');
	print $@;
}