File Coverage

lib/Message/Passing/Filter/Regexp/Log.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	36	36	100.0

package Message::Passing::Filter::Regexp::Log;

use strict;
use warnings;
use Config::Tiny;

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

$VERSION = 0.01;

sub _read_config {
    Config::Tiny->read(shift);
};

sub new {
    my $class = shift;
    my $args = { @_ };
    my $regexfile = delete $args->{'regexfile'};
    my $cfg = &_read_config($regexfile);
    %DEFAULT = ( default => '', capture => [] );
    %FORMAT = %{ $cfg->{FORMAT} };
    %REGEXP = %{ $cfg->{REGEXP} };
    my $self = $class->SUPER::new(%$args);
    bless $self, $class;
    return $self;
};

1;
__END__