WWW::Opentracker::Stats::Mode::Fullscrape - WWW::Opentracker::Stats::Mode::Fullscrape documentation

WWW-Opentracker-Stats documentation Contained in the WWW-Opentracker-Stats distribution.

Index

Code Index:

NAME

Top

WWW::Opentracker::Stats::Mode::Fullscrape

DESCRIPTION

Top

Parses the fullscrape statistics from opentracker.

METHODS

Top

parse_stats

 Args: $self, $payload

Decodes the plain text data retrieved from the fullscrape statistics of opentracker.

The payload looks like this (no indentation): 21000 1701 36369 seconds (10 hours) opentracker full scrape stats, 0 conns/s :: 0 bytes/s.

SEE ALSO

Top

WWW::Opentracker::Stats::Mode

AUTHOR

Top

Knut-Olav Hoven, <knutolav@gmail.com>

COPYRIGHT AND LICENSE

Top

Copyright (C) 2009 by Knut-Olav Hoven

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.

WWW-Opentracker-Stats documentation Contained in the WWW-Opentracker-Stats distribution. 
package WWW::Opentracker::Stats::Mode::Fullscrape;

use strict;
use warnings;

use parent qw/
    WWW::Opentracker::Stats::Mode
    Class::Accessor::Fast
/;


__PACKAGE__->_format('txt');
__PACKAGE__->_mode('fscr');

__PACKAGE__->mk_accessors(qw/_stats/);



sub parse_stats {
    my ($self, $payload) = @_;

    my ($count, $size, $seconds, $count_per_sec, $size_per_sec)
        = $payload =~ m{\A
                        (\d+) \s
                        (\d+) \s
                        (\d+) \s seconds \s \( \d+ \s hours \) \s
                        opentracker \s full \s scrape \s stats , \s
                                (\d+) \s conns/s \s :: \s (\d+) \s bytes/s \.
                }xms
        or die "Unable to parse payload: $payload";

    my %stats = (
        'count'         => $count,
        'size'          => $size,
        'uptime'        => $seconds,
        'count_per_sec' => $count_per_sec,
        'size_per_sec'  => $size_per_sec,
    );

    return \%stats;
}



1;