view release on metacpan or  search on metacpan

lib/Echo360.pm  view on Meta::CPAN

	my $resp = $self->_send('POST', "$uri", $xml);

	if ($resp and $resp->code >= 400) {
		$self->{_ERROR} = [$self->_parse_error($resp)]; 
		croak $self->errstr;
	}

	return XML::Simple->new()->XMLin($resp->content)
}

sub update {
	my ($self, $uri, $xml) = @_;
	$uri = "/$uri" unless $uri =~/^\//;

	print "PUT URI: $uri\n" if $self->{DEBUG};
	
	my $resp = $self->_send('PUT', "$uri", $xml);

	if ($resp and $resp->code >= 400) {
		$self->{_ERROR} = [$self->_parse_error($resp)]; 
		croak $self->errstr;

lib/Echo360.pm~  view on Meta::CPAN

	my $resp = $self->_send('POST', "$uri", $xml);

	if ($resp and $resp->code >= 400) {
		$self->{_ERROR} = [$self->_parse_error($resp)]; 
		croak $self->errstr;
	}

	return XML::Simple->new()->XMLin($resp->content)
}

sub update {
	my ($self, $uri, $xml) = @_;
	$uri = "/$uri" unless $uri =~/^\//;

	print "PUT URI: $uri\n" if $self->{DEBUG};
	
	my $resp = $self->_send('PUT', "$uri", $xml);

	if ($resp and $resp->code >= 400) {
		$self->{_ERROR} = [$self->_parse_error($resp)]; 
		croak $self->errstr;