view release on metacpan or  search on metacpan

lib/Google/Storage/V2/Storage.pm  view on Meta::CPAN

# === Message: Google::Storage::V2::Storage::ContentRange ===
    # Fields for ContentRange
    # Field: start Type: 3 ()
    # Field: end Type: 3 ()
    # Field: complete_length Type: 3 ()

=pod

=head1 NAME

Google::Storage::V2::Storage::ContentRange - Compiled Protocol Buffers message class

=head1 SYNOPSIS

    use Google::Storage::V2::Storage;

    my $msg = Google::Storage::V2::Storage::ContentRange->new(
        start => $value,
    );

=head1 FIELDS

=over 4

=item * B<start>

Type: Int64

=item * B<end>

Type: Int64

=item * B<complete_length>

Type: Int64

=back

=cut

# === Service Client: Google::Storage::V2::Storage::StorageClient ===
package Google::Storage::V2::Storage::StorageClient;

=pod

=head1 NAME

Google::Storage::V2::Storage::StorageClient - Client stub representing the remote Storage service

=head1 DESCRIPTION

This class acts as a local client stub for the remote gRPC service.
It delegates call dispatching to an underlying L<Google::gRPC::Client>
instance, ensuring type-safe request parsing and response mapping.

=head1 CONFIGURATION AND ENVIRONMENT

=head2 target

The endpoint target address. Defaults to C<storage.googleapis.com:443>.

=head2 credentials

The authentication credentials provider. Defaults to application default credentials via L<Google::Auth>.

=cut

use Moo;
use Google::Auth;
use Google::gRPC::Client;

has credentials => ( is => 'ro', default => sub { Google::Auth->default() } );
has target      => ( is => 'ro', default => 'storage.googleapis.com:443' );

has _grpc_client => (
    is => 'ro',
    lazy => 1,
    builder => sub {
        my $self = shift;
        return Google::gRPC::Client->new(
            target     => $self->target,
            auth_token => $self->credentials->get_token(),
        );
    }
);

sub delete_bucket {
    my ($self, $args) = @_;
    my $req = ref($args) eq 'HASH'
        ? Google::Storage::V2::Storage::DeleteBucketRequest->new($args)
        : $args;
    return $self->_grpc_client->call({
        service        => 'google.storage.v2.Storage',
        method         => 'DeleteBucket',
        request        => $req,
        response_class => 'Google::Protobuf::Empty::Empty',
    });
}

sub get_bucket {
    my ($self, $args) = @_;
    my $req = ref($args) eq 'HASH'
        ? Google::Storage::V2::Storage::GetBucketRequest->new($args)
        : $args;
    return $self->_grpc_client->call({
        service        => 'google.storage.v2.Storage',
        method         => 'GetBucket',
        request        => $req,
        response_class => 'Google::Storage::V2::Storage::Bucket',
    });
}

sub create_bucket {
    my ($self, $args) = @_;
    my $req = ref($args) eq 'HASH'
        ? Google::Storage::V2::Storage::CreateBucketRequest->new($args)
        : $args;
    return $self->_grpc_client->call({
        service        => 'google.storage.v2.Storage',
        method         => 'CreateBucket',