root/lang/perl/Mvalve/trunk/lib/Mvalve/Logger/Stats.pm @ 15914

Revision 15914, 363 bytes (checked in by daisuke, 6 years ago)

Start implementing logger

Line 
1# $Id$
2
3package Mvalve::Logger::Stats;
4use Moose;
5
6with 'MooseX::Q4MLog';
7with 'Mvalve::Logger';
8
9around 'new' => sub {
10    my ($next, $class, %args) = @_;
11
12    $args{q4mlog}->{table} ||= 'q_statslog';
13    $next->($class, %args);
14};
15
16no Moose;
17
18sub format_q4mlog {
19    my ($self, %args) = @_;
20    $args{logged_on} = \'CURRENT_TIMESTAMP';
21    return \%args;
22}
23
241;
Note: See TracBrowser for help on using the browser.