File Coverage

blib/lib/Net/Fastly/Origin.pm

Criterion	Covered	Total	%
statement	6	14	42.8
branch			n/a
condition			n/a
subroutine	2	4	50.0
pod	2	2	100.0
total	10	20	50.0

package Net::Fastly::Origin;

use strict;
use base qw(Net::Fastly::BelongsToServiceAndVersion);

Net::Fastly::Origin->mk_accessors(qw(service_id name comment));

=head1 NAME

Net::Fastly::Origin - Representation of a logical group of directors - for example the asset server directors from all your DCNs

=head1 ACCESSORS

=head2 service_id

The id of the service this belongs to.

=head2 version

The number of the version this belongs to.

=head2 name

The domain name of this domain

=cut

=head2 add_director

Add a director to an origin.

Returns true on success and false on failure.

=cut
sub add_director {
    my $self     = shift;
    my $director = shift;
    my $hash = $self->_fetcher->client->_post($self->_put_path($self)."/director/".$director->name);
    return !!(keys %$hash);
}

=head2 delete_director

Delete a director from an origin.

Returns true on success and false on failure.

=cut
sub delete_director {
    my $self     = shift;
    my $director = shift;
    my $hash = $self->_fetcher->client->_delete($self->_put_path($self)."/director/".$director->name);
    return !!(keys %$hash);
}

1;