File Coverage

blib/lib/Log/Saftpresse/Plugin/GraphitLineFormat.pm

Criterion	Covered	Total	%
statement	3	16	18.7
branch	0	8	0.0
condition	0	12	0.0
subroutine	1	2	50.0
pod	1	1	100.0
total	5	39	12.8

package Log::Saftpresse::Plugin::GraphitLineFormat;

use Moose;

# ABSTRACT: read metric values from logs and export them as counters
our $VERSION = '1.5'; # VERSION

extends 'Log::Saftpresse::Plugin';

with 'Log::Saftpresse::Plugin::Role::CounterUtils';


sub process {
	my ( $self, $event ) = @_;
	my $program = $event->{'program'};
	if( ! defined $program || $program ne 'metric' ) {
		return;
	}

	my ( $path, $value, $ts ) = split(/\s+/, $event->{'message'});

	if( ! defined $path || $path !~ /^[a-zA-Z0-9\-_\.]+$/ ) {
		return;
	}
	if( ! defined $value || $value !~ /^[+\-]?[0-9,\.]+$/ ) {
		return;
	}
	if( ! defined $ts || $ts !~ /^\d+$/ ) {
		return;
	}

	@$event{'type', 'path', 'value', 'timestamp'} =
		( 'metric', $path, $value, $ts );

	return;
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Log::Saftpresse::Plugin::GraphitLineFormat - read metric values from logs and export them as counters

=head1 VERSION

version 1.5

=head1 Description

This plugin parses the graphit line format.

=head1 Synopsis

  <Plugin graphit>
    module = "GraphitLineFormat"
  </Plugin>

=head1 Input Format

The plugin expects a events with

  'program' => 'metric'

and a 'message' field in graphit plaintext format:

  'message' => '<metric path> <metric value> <metric timestamp>'

=head1 Output

This plugin will add the following fields:

=over

=item type

The value: 'metric'.

=item path

The metric path.

=item value

The metric value.

=item timestamp

The metric timestamp.

=back

=head1 AUTHOR

Markus Benning <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 1998 by James S. Seymour, 2015 by Markus Benning.

This is free software, licensed under:

  The GNU General Public License, Version 2, June 1991

=cut