perl dancer - cách chuyển đối số bổ sung cho các trình con thủ tục phương thức?

Question

Có cách nào để chuyển các biến bổ sung vào một trình xử lý phương thức con không? Tôi thường không thích sử dụng các biến toàn cầu bên ngoài phạm vi của chương trình con. Tôi có những thứ như kết nối cơ sở dữ liệu và trường hợp lớp mà tôi muốn các trình xử lý có quyền truy cập vào, mà không sử dụng globals. Sử dụng gỡ lỗi để bàn điều khiển, có vẻ như @_ trống cho mỗi cuộc gọi xử lý.

#!/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

Một cách là sử dụng hàm băm vars mà Dancer cung cấp. Ở đây tôi sử dụng một trước khi móc để thiết lập một xử lý cơ sở dữ liệu:

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"; 
}; 

Answer 2

Với một cái gì đó giống như

sub get_dbh { 
    if (! vars('dbh')) { 
     my $dbh = DBI->connect_cached(...); 
     session(dbh => $dbh); 
    } 
    return vars('dbh'); 
} 

bạn có quyền truy cập vào các xử lý cơ sở dữ liệu từ bất cứ nơi nào mà không có nó là toàn cầu, kết nối cơ sở dữ liệu không được thực hiện cho đến khi bạn cần nó và, nếu bạn cần nó một lần nữa sau trong chương trình của bạn, vẫn còn trong bộ sưu tập vars và không cần phải được tạo ra một lần nữa.