File Coverage

blib/lib/WWW/Giraffi/API/MonitoringData.pm

Criterion	Covered	Total	%
statement	12	29	41.3
branch	0	2	0.0
condition			n/a
subroutine	4	7	57.1
pod	3	3	100.0
total	19	41	46.3

package WWW::Giraffi::API::MonitoringData;

use strict;
use warnings;
use Time::Piece;

use parent qw(WWW::Giraffi::API::Request);

our $VERSION = '0.2_04';

sub all {

    my ( $self, $other_options ) = @_;
    return $self->search(undef, $other_options);
}

sub search {
    my ( $self, $conditions, $other_options ) = @_;
    my $arrayref = $self->get( "monitoringdata.json", $conditions, $other_options );
	if ($self->use_time_piece) {
		my $tmp_arrayref = [];
		foreach my $ref(@{$arrayref}) {
			$ref->{checked_at}  = localtime($ref->{checked_at});
			$ref->{compared_at} = localtime($ref->{compared_at});
			$ref->{created_at}  = localtime($ref->{created_at});
			push @{$tmp_arrayref}, $ref;
		}
		$arrayref = $tmp_arrayref;
	}
	return $arrayref;
}

sub create {
    my ( $self, $conditions, $other_options ) = @_;
    return $self->post( sprintf("%s/internal/nodelayed", $self->monitoringdata_endpoint), undef, { internal => $conditions }, $other_options );
}

1;

__END__