Bug #81218 for Net-Amazon-Glacier: [patch] add delete_archive support

> > Greetings, > > This message has been automatically generated in response to the > creation of a trouble ticket regarding: > "[patch] add delete_archive support", > a summary of which appears below. > > There is no need to reply to this message right now. Your ticket has been > assigned an ID of [rt.cpan.org #81218]. Your ticket is accessible > on the web at: > > https://rt.cpan.org/Ticket/Display.html?id=81218 > > Please include the string: > > [rt.cpan.org #81218] > > in the subject line of all future correspondence about this issue. To do > so, > you may reply to this message. > > Thank you, > bug-Net-Amazon-Glacier@rt.cpan.org > > ------------------------------------------------------------------------- > Self-explanatory. :) > > --- a/lib/Net/Amazon/Glacier.pm > +++ b/lib/Net/Amazon/Glacier.pm > @@ -162,6 +162,21 @@ > } > } > > +=head2 delete_archive( $vault_name, $archive_id ) > + > +Issues a request to delete a file from Glacier. $archive_id is the ID you > received either when you uploaded the file originally or from an inventory. > + > +=cut > + > +sub delete_archive { > + my ( $self, $vault_name, $archive_id ) = @_; > + croak "no vault name given" unless $vault_name; > + croak "no archive ID given" unless $archive_id; > + > + my $res = $self->_send_receive( DELETE => > "/-/vaults/$vault_name/archives/$archive_id" ); > + > + return $res->is_success; > +} > > =head1 JOB OPERATIONS > >