File Coverage

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

Criterion	Covered	Total	%
statement	9	29	31.0
branch			n/a
condition			n/a
subroutine	3	13	23.0
pod	10	10	100.0
total	22	52	42.3

package WWW::Giraffi::API::Service;

use strict;
use warnings;

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 ) = @_;
    return $self->get( "services.json", $conditions, $other_options );
}

sub find {

    my ( $self, $id, $other_options ) = @_;
    return $self->get( sprintf( "services/%s.json", $id ), undef, $other_options );
}

sub find_region {

    my ( $self, $id, $other_options ) = @_;
    return $self->get( sprintf( "services/%s/regions.json", $id ), undef, $other_options );
}

sub find_trigger {

    my ( $self, $id, $other_options ) = @_;
    return $self->get( sprintf( "services/%s/triggers.json", $id ), undef, $other_options );
}

sub update {

    my ( $self, $id, $conditions, $other_options ) = @_;
    return $self->put( sprintf("services/%s.json", $id), undef, { service => $conditions }, $other_options );
}

sub update_region {

    my ( $self, $id, $region_code, $other_options ) = @_;
    return $self->put( sprintf("services/%s/regions/%s.json", $id, $region_code), undef, {}, $other_options );
}

sub destroy {

    my ( $self, $id, $other_options ) = @_;
    return $self->delete( sprintf("services/%s.json", $id), undef, undef, $other_options );
}

sub add_trigger {

    my ( $self, $id, $conditions, $other_options ) = @_;
    return $self->post( sprintf("services/%s/triggers.json", $id), undef, { trigger => $conditions }, $other_options );
}

sub remove_trigger {

    my ( $self, $id, $trigger_id, $other_options ) = @_;
    return $self->delete( sprintf("services/%s/triggers/%s.json", $id, $trigger_id), undef, undef, $other_options );
}
1;

__END__