view release on metacpan or  search on metacpan

lib/Azure/Storage/Blob/Client/Call/DeleteBlob.pm  view on Meta::CPAN

package Azure::Storage::Blob::Client::Call::DeleteBlob;
use Moose;
use Azure::Storage::Blob::Client::Exception;
use Azure::Storage::Blob::Client::Meta::Attribute::Custom::Trait::HeaderParameter;

has operation => (is => 'ro', init_arg => undef, default => 'DeleteBlob');
has endpoint => (is => 'ro', init_arg => undef, lazy => 1, default => sub {
  my $self = shift;
  return sprintf(
    'https://%s.blob.core.windows.net/%s/%s',
    $self->account_name,
    $self->container,
    $self->blob_name,
  );
});
has method => (is => 'ro', init_arg => undef, default => 'DELETE');

with 'Azure::Storage::Blob::Client::Call';

has account_name => (is => 'ro', isa => 'Str', required => 1);
has api_version => (is => 'ro', isa => 'Str', traits => ['HeaderParameter'], header_name => 'x-ms-version', required => 1);
has container => (is => 'ro', isa => 'Str', required => 1);
has blob_name => (is => 'ro', isa => 'Str', required => 1);
has delete_snapshots => (is => 'ro', isa => 'Str', traits => ['HeaderParameter'], header_name => 'x-ms-delete-snapshots');

sub BUILD {
  my $self = shift;
  if ($self->delete_snapshots) {
    if ($self->delete_snapshots ne 'include' and $self->delete_snapshots ne 'only') {
      Azure::Storage::Blob::Client::Exception->throw({
        code => 'ValidationError',
        message => "'delete_snapshots' valid values are [include, only]",
      });
    }
  }
}

sub parse_response {
  my ($self, $response) = @_;
  return $response;
}

__PACKAGE__->meta->make_immutable();

1;