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