File Coverage

blib/lib/XAS/Logmon/Parser/XAS/Logs.pm

Criterion	Covered	Total	%
statement	6	28	21.4
branch	0	2	0.0
condition			n/a
subroutine	2	4	50.0
pod	2	2	100.0
total	10	36	27.7

package XAS::Logmon::Parser::XAS::Logs;

our $VERSION = '0.01';

use XAS::Lib::Regexp::Log::XAS;

use XAS::Class
  debug     => 0,
  version   => $VERSION,
  base      => 'XAS::Base',
  utils     => 'trim dotid db2dt',
  accessors => 'regex fields',
;

#use Data::Dumper;

# ----------------------------------------------------------------------
# Public Methods
# ----------------------------------------------------------------------

sub parse {
    my $self = shift;
    my $line = shift;

    my %data;
    my $regex  = $self->regex;
    my $fields = $self->fields;

    if ((@data{@$fields}) = ($line =~ /$regex/)) {

        $data{'datetime'} = db2dt($data{'datetime'});
        $data{'message'}  = trim($data{'message'});
        $data{'type'}     = 'xas-logs';

        return \%data;

    }

    return undef;

}

# ----------------------------------------------------------------------
# Private Methods
# ----------------------------------------------------------------------

sub init {
    my $self = shift;
    my $config = shift;

    my @args;

    while (my ($key, $value) = each(%$config)) {

        push(@args, $key);
        push(@args, $value);

    }

    my $reg = XAS::Lib::Regexp::Log::XAS->new(@args);
    my @fields = $reg->capture;

    $self->{'regex'}  = $reg->regexp;
    $self->{'fields'} = \@fields;

    return $self;

}

1;

__END__