File Coverage

blib/lib/Monitis/ExternalMonitors.pm

Criterion	Covered	Total	%
statement	9	65	13.8
branch			n/a
condition			n/a
subroutine	3	16	18.7
pod	13	13	100.0
total	25	94	26.6

package Monitis::ExternalMonitors;

use warnings;
use strict;
require Carp;

use base 'Monitis';

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

    my @mandatory = qw/type name url interval timeout locationIds tag/;

# TODO: right checks for detailedTestType postData contentMatchFlag contentMatchString
    my @optional =
      qw/detailedTestType overSSL postData contentMatchFlag contentMatchString params/;

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

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

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

    my @mandatory = qw/testId name url locationIds timeout tag/;
    my @optional  = qw/contentMatchString maxValue/;

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

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

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

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

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

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

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

    my @mandatory = qw//;
    my @optional  = qw/monitorIds tag/;

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

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

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

    my @mandatory = qw//;
    my @optional  = qw/monitorIds tag/;

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

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

sub get_locations {
    my $self = shift;

    return $self->api_get('locations');
}

sub get_monitors {
    my $self = shift;

    return $self->api_get('tests');
}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

sub get_tags {
    my $self = shift;

    return $self->api_get('tags');
}

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

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

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

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


__END__