GroLUG/lib/GroLUG/LogAppender.pm


1
2
3
4
5
6
7
8
9
10

package GroLUG::LogAppender; 
use base 'Log::Log4perl::Appender::DBI';
 
sub _init {
    my ($self)=@_;
 
    $self->{dbh}=GroLUG::M::DB->storage->dbh;
}
 
1;