Perl Tänzer - wie übergeben Sie zusätzliche Argumente zu Methoden-Handler-Subroutinen?

Question

Gibt es eine Möglichkeit, zusätzliche Variablen an eine Subroutine für Methodenhandler zu übergeben? Ich mag es generell nicht, globale Variablen außerhalb des Bereichs der Subroutine zu verwenden. Ich habe Dinge wie Datenbankverbindung und Klasseninstanzen, auf die die Handler zugreifen sollen, ohne globale Variablen zu verwenden. Bei Verwendung von debug für die Konsole ist @ @ für jeden Handleraufruf leer.

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

Eine Möglichkeit ist es, die vars Hash, der Tänzer bietet zu verwenden. Hier verwende ich ein vor Haken eine Datenbank-Handle einzurichten:

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

Mit so etwas wie

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

Sie haben Zugriff auf die Datenbank-Handle von überall, ohne sie global ist, wird die Datenbankverbindung nicht hergestellt bis Sie es brauchen und wenn Sie es später in Ihrem Programm noch benötigen, ist es immer noch in der Vars-Sammlung und muss nicht erneut erstellt werden.