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:
| 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; |