Hi Monks, I have a SQLConnection class as defined below: 
package SQLConnection;

use DBI;
use Moose;
use MooseX::ClassAttribute;


class_has 'dbh'      => ( is => 'rw',isa => 'DBI::db', lazy_build => 1
+);
class_has 'db'     => ( is => 'rw',isa => 'Str', default => 'theDB');
class_has 'port'   => ( is => 'rw',isa => 'Int', default => 3306);
class_has 'host'   => ( is => 'rw',isa => 'Str', default => '127.0.0.1
+');
class_has 'user'   => ( is => 'rw',isa => 'Str', default => 'theUSER')
+;
class_has 'pwd'    => ( is => 'rw',isa => 'Str', default => 'thePASS')
+;


sub _build_dbh {
    my $self = shift;
    my $dsn = 'DBI:mysql:'.GSM::SQLConnection->db.';host='.GSM::SQLCon
+nection->host.';port='.GSM::SQLConnection->port;
    return DBI->connect($dsn, GSM::SQLConnection->user, GSM::SQLConnec
+tion->pwd);
}

no Moose;
no MooseX::ClassAttribute;
__PACKAGE__->meta()->make_immutable();


1;

[download]
Somewhere else, i have a mod_perl handler method called "autocomplete_input" to return values to an autocomplete textbox: 
package Neighbouring;
use strict;
use warnings;

use Apache2::Cookie;
use Apache2::Request ();
use Apache2::RequestRec ();
use Apache2::RequestIO ();  
use Apache2::RequestUtil ();
use Apache::Session::File;
use Apache2::Const -compile => qw(OK);
use SQLConnection;
use JSON;


  
sub handler {
    my $r = shift;
    my $req = Apache2::Request->new($r);

    my $page = $req->param('.state') || 'start';
    
    my $sid;
    my $j = Apache2::Cookie::Jar->new($r);
  my $c_in = $j->cookies('nb_session_id');         # get cookie from r
+equest headers
  
  if (($c_in) && ($page ne 'start')) {                         # retri
+eve existing cookies only if we are not on the start page
      $sid = $c_in->value;
  }
  else {
      my %session;
      tie %session, 'Apache::Session::File', undef, {
            Directory => '/tmp',
            LockDirectory   =>'/tmp',
        };
        
        $sid = $session{'_session_id'};
      my $c_out = Apache2::Cookie->new($r, -name => 'nb_session_id', -
+value => $sid, -expires => '+8H');
    $c_out->bake($r);                       # send cookie in response 
+headers
  }

    
    my $template = Template->new({INCLUDE_PATH => '/template_dir', PRE
+_PROCESS  => 'config',});
    my %states = (
        'start'             => \&start_page,
        'notfound'        => \&notfound_page,
        'auto_input' => \&autocomplete_input,
    );
    
    
  
    if ($states{$page}) {
            $states{$page}->($r,$template,$sid);   # call the correct 
+subroutine 
    } 
    else {
            $states{'notfound'}->($r,$template,$sid);
    }
}


sub autocomplete_input {
    my ($r,$template,$sid) = @_;
    my $req = Apache2::Request->new($r);
    my $cellid = $req->param('query');
    $cellid = quotemeta($cellid);
    
    my $sth = SQLConnection->dbh->prepare('select distinct LAC,CI,User
+Label from Cell where UserLabel like \'%'.$cellid.'%\' order by UserL
+abel');
    $sth->execute;
    
    my @results;
    while (my @row = $sth->fetchrow_array) {
        $row[2] =~ s/\"//g;
        push @results,$row[0].','.$row[1].'/'.$row[2];
    }
    
    my $ret = {'query' => $cellid, 'suggestions' =>\@results};
    $r->content_type('application/json');
    $r->no_cache(1);
    $r->headers_out;
    print to_json($ret);
    return Apache2::Const::OK;
}

[download]
This works fine most of the time, but every now and then i get a DBD::mysql::st execute failed: Lost connection to MySQL server during query at .. in the Apache error log - and the result is that the autocomplete text box is not populated (as no values are returned). So, somehow the MySQL is being sent to digital heaven prematurely. Do you have any idea why? Is this perhaps a side effect of the interaction between the mod_perl handler and the web server? Where else could this error be originaing from? As a work around, i was thinking of using mod_dbd in order to let the Apache server manage the SQL connection. Does anyone have a better idea? (please ignore any obvious syntax errors in the code above)

In reply to The Moose, dbh class attribute, mod_perl handler and a lost SQL connection by ZAmonk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.