File Coverage

blib/lib/XAS/Logmon/Filter/Merge.pm

Criterion	Covered	Total	%
statement	6	12	50.0
branch			n/a
condition			n/a
subroutine	2	4	50.0
pod	2	2	100.0
total	10	18	55.5

package XAS::Logmon::Filter::Merge;

our $VERSION = '0.01';

use Hash::Merge;

use XAS::Class
  version   => $VERSION,
  base      => 'XAS::Base',
  utils     => ':validation',
  accessors => 'hm',
  constants => 'HASHREF',
;

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

sub filter {
    my $self = shift;
    my ($data, $cfg) = validate_params(\@_, [
        { type => HASHREF },
        { type => HASHREF },
    ]);

    return $self->hm->merge($data, $cfg);

}

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

sub init {
    my $self = shift;

    $self->{'hm'} = Hash::Merge->new('RIGHT_PRECEDENT');

    return $self;

}

1;

__END__