File Coverage

blib/lib/Regexp/Log/Progress/Database.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 Regexp::Log::Progress::Database;

use strict;
use warnings;

our $VERSION = '0.01';

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

# reference: http://knowledgebase.progress.com/articles/Article/000031990
#            http://documentation.progress.com/output/ua/OpenEdge11_3/index.html#page/openedge/25dmadmch18_2.html

%DEFAULT = (
    format  => '%datetime%pid%tid%level%process%msgnum%message',
    capture => [qw( datetime pid tid level process msgnum message )],
);

%FORMAT = (
    ':default' => '%datetime%pid%tid%level%process%msgnum%message',
);

%REGEXP = (
    '%datetime' => '\[(?#=datetime)\d{4}/\d{2}/\d{2}@\d{2}:\d{2}:\d{2}\.\d+.\d{4}(?#!datetime)\]\s+',
    '%pid'      => 'P-(?#=pid)[\d|-]+(?#!pid)\s+',
    '%tid'      => 'T-(?#=tid)[\d|-]+(?#!tid)\s+',
    '%level'    => '(?#=level)[I|W|F|\d+](?#!level)\s+',
    '%process'  => '(?#=process).*(?#!process):\s+',
    '%msgnum'   => '\((?#=msgnum)[\d|-]+(?#!msgnum)\)\s+',
    '%message'  => '(?#=message).*(?#!message)',
);

1;


__END__