File Coverage

blib/lib/Monitis/TransactionMonitors.pm

Criterion	Covered	Total	%
statement	9	51	17.6
branch			n/a
condition			n/a
subroutine	3	11	27.2
pod	8	8	100.0
total	20	70	28.5

package Monitis::TransactionMonitors;

use warnings;
use strict;
require Carp;

use base 'Monitis';

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('suspendTransactionMonitor' => $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('activateTransactionMonitor' => $params);
}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    # TODO: Handling PNG should be tested!
    my $request =
      $self->build_get_request('transactionStepCapture' => $params);

    my $response = $self->ua->request($request);

    return $response->decoded_content;
}

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

    my @mandatory = qw/resultId year month day/;
    my @optional  = qw//;

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

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

__END__