Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 1853d251

Von Sven Schöling vor mehr als 9 Jahren hinzugefügt

  • ID 1853d2519cc6a003a6bb8feee4d70812cb956b23
  • Vorgänger e81bb271
  • Nachfolger d6138be8

DBConnect Caching: DBConnect auto args in den Key aufnehmen

Unterschiede anzeigen:

SL/DBConnect.pm
16 16 

  		




  17
  17
  
    
sub _connect {


  		




  18
  18
  
    
  my ($self, @args) = @_;


  		




  19
  
  
    
  @args = $self->get_connect_args if !@args;


  		




  20
  19
  
    

  		




  21
  20
  
    
  return DBI->connect(@args) unless $::lx_office_conf{debug} && $::lx_office_conf{debug}->{dbix_log4perl};


  		




  22
  21
  
    

  		




  ......




  33
  32
  
    

  		




  34
  33
  
    
sub connect {


  		




  35
  34
  
    
  my ($self, @args) = @_;


  		




  
  35
  
    
  @args = $self->get_connect_args if !@args;


  		




  36
  36
  
    
  my $initial_sql = $self->get_initial_sql;


  		




  37
  37
  
    

  		




  38
  38
  
    
  if (my $cached_dbh = SL::DBConnect::Cache->get(@args, $initial_sql)) {


  		












Auch abrufbar als:  Unified diff