perl dancer - 如何向方法处理器子程序传递额外的参数？

Question

有没有办法将其他变量传递给方法处理程序子例程？我通常不喜欢在子程序范围之外使用全局变量.我有数据库连接和类实例,我希望处理程序可以访问,而不使用全局变量.使用调试到控制台,对于每个处理程序调用,@ _看起来都是空的.

#!/usr/bin/perl

use strict;

use Dancer;
use Data::Dumper;

set('logger' => 'console');

my $somevar = SomeClass->new();

get('/' => sub{
  debug(Dumper(@_));
  debug($somevar);
  return('hello world');
});

Answer 1

一种方法是使用varsDancer 提供的哈希值。这里我使用 before 钩子来设置数据库句柄：

use strict;
use warnings;
use Dancer;
use DBI;

hook 'before' => sub {
    var dbh => DBI->connect_cached(...);
};

get '/' => sub { 
    my $qry = vars->{dbh}->prepare("SQL");
    ...
    return "Something, something, query results";
};