sub _doLog {
  my ($lid, $pid, $msg) = @_;
  #...
  my $sth = _init()->{dbh}->prepare("INSERT INTO Logs
                                     ( log_level_id, 
                                       log_program_id, 
                                       message ) 
                                     VALUES ( ?, ?, ? )" );
  #...
}