有没有办法将附加变量传递给方法处理程序子例程?我通常不喜欢在子例程范围之外使用全局变量。我有诸如数据库连接和类实例之类的东西,我希望处理程序可以访问它们,而无需使用全局变量。使用调试到控制台,看起来 @_ 对于每个处理程序调用都是空的。
#!/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');
});
最佳答案
一种方法是使用 vars
Dancer 提供的哈希值。这里我使用了一个 before 钩子(Hook)来设置一个数据库句柄:
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";
};
关于perl dancer - 如何将附加参数传递给方法处理程序子例程?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/15973928/