File Coverage

blib/lib/XAS/Lib/Regexp/Log/XAS.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

package XAS::Lib::Regexp::Log::XAS;

use strict;
use warnings;

our $VERSION = '0.01';

use base 'Regexp::Log';
use vars qw( %DEFAULT %FORMAT %REGEXP );

# standard log format
#
# [2015-11-30 07:36:39] INFO  - starting up
# %datetime%level%message
#
# with tasks
#
# [2015-11-30 07:36:39] INFO  - connector: tcp_keepalive enabled
# %datetime%level%task%message

%DEFAULT = (
    format  => '%datetime%level%message',
    capture => [qw( datetime level task message )],
);

%FORMAT = (
    ':default' => '%datetime%level%message',
    ':tasks'   => '%datetime%level%task%message',
);

%REGEXP = (
    '%datetime' => '\[(?#=datetime)\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}(?#!datetime)\]\s+',
    '%level'    => '(?#=level)\w+(?#!level)\s+-\s+',
    '%task'     => '(?#=task)[\w|-]+(?#!task):\s+',
    '%message'  => '(?#=message).*(?#!message)',
);

1;

__END__