I hereby claim:
- I am powerman on github.
- I am powerman (https://keybase.io/powerman) on keybase.
- I have a public key ASCSBOCcVZFOBR0em9fFkAAWPJX7QbEQq69BY9wDKS_n2Qo
To claim this, I am signing this object:
I hereby claim:
To claim this, I am signing this object:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> | |
<html xmlns="http://www.w3.org/1999/xhtml"> | |
<head> | |
<meta name="viewport" content="width=device-width" /> | |
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /> | |
<title>{{ template "__subject" . }}</title> | |
</head> | |
<body itemscope itemtype="http://schema.org/EmailMessage"> |
use AnyEvent::DBI::MySQL; | |
sub startup { | |
my $app = shift; | |
$app->config(db => {dsn=>…, login=>…, pass=>…}); | |
$app->helper(dbh => sub { shift->{dbh} }); | |
$app->helper(new_dbh => sub { | |
state $db = shift->app->config('db') or return; |
use AnyEvent; | |
sub allow_non_blocking_cgi { | |
my ($module) = @_; | |
eval "require $module;" or die $@; ## no critic (ProhibitStringyEval) | |
my $startup = \&{$module.'::startup'}; | |
my $wrapper = sub { | |
my ($app) = @_; | |
&{$startup}; | |
my $done = AnyEvent->condvar; |