File Coverage

blib/lib/Monitis/LoadAverage.pm

Criterion	Covered	Total	%
statement	9	42	21.4
branch			n/a
condition			n/a
subroutine	3	12	25.0
pod	9	9	100.0
total	21	63	33.3

package Monitis::LoadAverage;

use warnings;
use strict;
require Carp;

use base 'Monitis';

sub add {
    my ($self, @params) = @_;

    my @mandatory = qw/agentkey limit1 limit5 limit15 name tag/;
    my @optional  = qw//;

    my $params = $self->prepare_params(\@params, \@mandatory, \@optional);

    return $self->api_post('addLoadAverageMonitor' => $params);
}

sub edit {
    my ($self, @params) = @_;

    my @mandatory = qw/testId limit1 limit5 limit15 name tag/;
    my @optional  = qw//;

    my $params = $self->prepare_params(\@params, \@mandatory, \@optional);

    return $self->api_post('editLoadAverageMonitor' => $params);
}

sub get {
    my ($self, @params) = @_;

    my @mandatory = qw/agentId/;
    my @optional  = qw//;

    my $params = $self->prepare_params(\@params, \@mandatory, \@optional);

    return $self->api_get('agentLoadAvg' => $params);
}

sub get_info {
    my ($self, @params) = @_;

    my @mandatory = qw/monitorId/;
    my @optional  = qw//;

    my $params = $self->prepare_params(\@params, \@mandatory, \@optional);

    return $self->api_get('loadAvgInfo' => $params);
}

sub get_results {
    my ($self, @params) = @_;

    my @mandatory = qw/monitorId day month year/;
    my @optional  = qw/timezone/;

    my $params = $self->prepare_params(\@params, \@mandatory, \@optional);

    return $self->api_get('loadAvgResult' => $params);
}

sub topload1  { shift->get_top_results('topload1',  @_) }
sub topload5  { shift->get_top_results('topload5',  @_) }
sub topload10 { shift->get_top_results('topload10', @_) }

sub get_top_results {
    my ($self, $topload, @params) = @_;

    my @mandatory = qw//;
    my @optional  = qw/timezoneoffset limit tag/;

    my $params = $self->prepare_params(\@params, \@mandatory, \@optional);

    return $self->api_get($topload => $params);
}

__END__