Google-Cloud-Compute-V1

 view release on metacpan or  search on metacpan

lib/Google/Cloud/Compute/V1/GlobalNetworkEndpointGroupsClient.pm  view on Meta::CPAN

    } else {
        # Default high-performance HTTP/2 gRPC client
        my $client = Google::gRPC::Client->new(
            target     => $target,
            auth_token => $token,
        );
        $self->transport($client);
    }
}

sub attach_network_endpoints {
    my ($self, %params) = @_;

    my $request_class = 'Google::Cloud::Compute::V1::Compute::AttachNetworkEndpointsGlobalNetworkEndpointGroupRequest';
    my $request = eval { $request_class->new(\%params) } || eval { $request_class->new(%params) } || ($request_class->can('encode') ? $request_class->encode(\%params) : \%params);

    my $response_class = 'Google::Cloud::Compute::V1::Compute::Operation';
    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.GlobalNetworkEndpointGroups',
        method         => 'AttachNetworkEndpoints',
        request        => $request,

lib/Google/Cloud/Compute/V1/GlobalNetworkEndpointGroupsClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.GlobalNetworkEndpointGroups',
        method         => 'Delete',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

sub detach_network_endpoints {
    my ($self, %params) = @_;

    my $request_class = 'Google::Cloud::Compute::V1::Compute::DetachNetworkEndpointsGlobalNetworkEndpointGroupRequest';
    my $request = eval { $request_class->new(\%params) } || eval { $request_class->new(%params) } || ($request_class->can('encode') ? $request_class->encode(\%params) : \%params);

    my $response_class = 'Google::Cloud::Compute::V1::Compute::Operation';
    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.GlobalNetworkEndpointGroups',
        method         => 'DetachNetworkEndpoints',
        request        => $request,

lib/Google/Cloud/Compute/V1/GlobalNetworkEndpointGroupsClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.GlobalNetworkEndpointGroups',
        method         => 'List',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

sub list_network_endpoints {
    my ($self, %params) = @_;

    my $request_class = 'Google::Cloud::Compute::V1::Compute::ListNetworkEndpointsGlobalNetworkEndpointGroupsRequest';
    my $request = eval { $request_class->new(\%params) } || eval { $request_class->new(%params) } || ($request_class->can('encode') ? $request_class->encode(\%params) : \%params);

    my $response_class = 'Google::Cloud::Compute::V1::Compute::NetworkEndpointGroupsListNetworkEndpoints';
    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.GlobalNetworkEndpointGroups',
        method         => 'ListNetworkEndpoints',
        request        => $request,

lib/Google/Cloud/Compute/V1/GlobalNetworkEndpointGroupsClient.pm  view on Meta::CPAN

Returns or accepts the active transport object (L<Google::gRPC::Client> or L<Google::Cloud::REST::Client>).

=head1 METHODS

=head2 METHODS

The following RPC methods are available in this client:

=over 4

=item * B<attach_network_endpoints>

Calls the RPC method C<AttachNetworkEndpoints> on the service. Takes a hash of parameters representing the request.

=item * B<delete>

Calls the RPC method C<Delete> on the service. Takes a hash of parameters representing the request.

=item * B<detach_network_endpoints>

Calls the RPC method C<DetachNetworkEndpoints> on the service. Takes a hash of parameters representing the request.

=item * B<get>

Calls the RPC method C<Get> on the service. Takes a hash of parameters representing the request.

=item * B<insert>

Calls the RPC method C<Insert> on the service. Takes a hash of parameters representing the request.

=item * B<list>

Calls the RPC method C<List> on the service. Takes a hash of parameters representing the request.

=item * B<list_network_endpoints>

Calls the RPC method C<ListNetworkEndpoints> on the service. Takes a hash of parameters representing the request.

=back



=head1 LICENSE AND COPYRIGHT

Copyright (C) 2026 Google LLC

lib/Google/Cloud/Compute/V1/NetworkEndpointGroupsClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.NetworkEndpointGroups',
        method         => 'AggregatedList',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

sub attach_network_endpoints {
    my ($self, %params) = @_;

    my $request_class = 'Google::Cloud::Compute::V1::Compute::AttachNetworkEndpointsNetworkEndpointGroupRequest';
    my $request = eval { $request_class->new(\%params) } || eval { $request_class->new(%params) } || ($request_class->can('encode') ? $request_class->encode(\%params) : \%params);

    my $response_class = 'Google::Cloud::Compute::V1::Compute::Operation';
    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.NetworkEndpointGroups',
        method         => 'AttachNetworkEndpoints',
        request        => $request,

lib/Google/Cloud/Compute/V1/NetworkEndpointGroupsClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.NetworkEndpointGroups',
        method         => 'Delete',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

sub detach_network_endpoints {
    my ($self, %params) = @_;

    my $request_class = 'Google::Cloud::Compute::V1::Compute::DetachNetworkEndpointsNetworkEndpointGroupRequest';
    my $request = eval { $request_class->new(\%params) } || eval { $request_class->new(%params) } || ($request_class->can('encode') ? $request_class->encode(\%params) : \%params);

    my $response_class = 'Google::Cloud::Compute::V1::Compute::Operation';
    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.NetworkEndpointGroups',
        method         => 'DetachNetworkEndpoints',
        request        => $request,

lib/Google/Cloud/Compute/V1/NetworkEndpointGroupsClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.NetworkEndpointGroups',
        method         => 'List',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

sub list_network_endpoints {
    my ($self, %params) = @_;

    my $request_class = 'Google::Cloud::Compute::V1::Compute::ListNetworkEndpointsNetworkEndpointGroupsRequest';
    my $request = eval { $request_class->new(\%params) } || eval { $request_class->new(%params) } || ($request_class->can('encode') ? $request_class->encode(\%params) : \%params);

    my $response_class = 'Google::Cloud::Compute::V1::Compute::NetworkEndpointGroupsListNetworkEndpoints';
    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.NetworkEndpointGroups',
        method         => 'ListNetworkEndpoints',
        request        => $request,

lib/Google/Cloud/Compute/V1/NetworkEndpointGroupsClient.pm  view on Meta::CPAN

=head2 METHODS

The following RPC methods are available in this client:

=over 4

=item * B<aggregated_list>

Calls the RPC method C<AggregatedList> on the service. Takes a hash of parameters representing the request.

=item * B<attach_network_endpoints>

Calls the RPC method C<AttachNetworkEndpoints> on the service. Takes a hash of parameters representing the request.

=item * B<delete>

Calls the RPC method C<Delete> on the service. Takes a hash of parameters representing the request.

=item * B<detach_network_endpoints>

Calls the RPC method C<DetachNetworkEndpoints> on the service. Takes a hash of parameters representing the request.

=item * B<get>

Calls the RPC method C<Get> on the service. Takes a hash of parameters representing the request.

=item * B<insert>

Calls the RPC method C<Insert> on the service. Takes a hash of parameters representing the request.

=item * B<list>

Calls the RPC method C<List> on the service. Takes a hash of parameters representing the request.

=item * B<list_network_endpoints>

Calls the RPC method C<ListNetworkEndpoints> on the service. Takes a hash of parameters representing the request.

=item * B<test_iam_permissions>

Calls the RPC method C<TestIamPermissions> on the service. Takes a hash of parameters representing the request.

=back

lib/Google/Cloud/Compute/V1/RegionNetworkEndpointGroupsClient.pm  view on Meta::CPAN

    } else {
        # Default high-performance HTTP/2 gRPC client
        my $client = Google::gRPC::Client->new(
            target     => $target,
            auth_token => $token,
        );
        $self->transport($client);
    }
}

sub attach_network_endpoints {
    my ($self, %params) = @_;

    my $request_class = 'Google::Cloud::Compute::V1::Compute::AttachNetworkEndpointsRegionNetworkEndpointGroupRequest';
    my $request = eval { $request_class->new(\%params) } || eval { $request_class->new(%params) } || ($request_class->can('encode') ? $request_class->encode(\%params) : \%params);

    my $response_class = 'Google::Cloud::Compute::V1::Compute::Operation';
    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.RegionNetworkEndpointGroups',
        method         => 'AttachNetworkEndpoints',
        request        => $request,

lib/Google/Cloud/Compute/V1/RegionNetworkEndpointGroupsClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.RegionNetworkEndpointGroups',
        method         => 'Delete',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

sub detach_network_endpoints {
    my ($self, %params) = @_;

    my $request_class = 'Google::Cloud::Compute::V1::Compute::DetachNetworkEndpointsRegionNetworkEndpointGroupRequest';
    my $request = eval { $request_class->new(\%params) } || eval { $request_class->new(%params) } || ($request_class->can('encode') ? $request_class->encode(\%params) : \%params);

    my $response_class = 'Google::Cloud::Compute::V1::Compute::Operation';
    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.RegionNetworkEndpointGroups',
        method         => 'DetachNetworkEndpoints',
        request        => $request,

lib/Google/Cloud/Compute/V1/RegionNetworkEndpointGroupsClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.RegionNetworkEndpointGroups',
        method         => 'List',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

sub list_network_endpoints {
    my ($self, %params) = @_;

    my $request_class = 'Google::Cloud::Compute::V1::Compute::ListNetworkEndpointsRegionNetworkEndpointGroupsRequest';
    my $request = eval { $request_class->new(\%params) } || eval { $request_class->new(%params) } || ($request_class->can('encode') ? $request_class->encode(\%params) : \%params);

    my $response_class = 'Google::Cloud::Compute::V1::Compute::NetworkEndpointGroupsListNetworkEndpoints';
    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.RegionNetworkEndpointGroups',
        method         => 'ListNetworkEndpoints',
        request        => $request,

lib/Google/Cloud/Compute/V1/RegionNetworkEndpointGroupsClient.pm  view on Meta::CPAN

Returns or accepts the active transport object (L<Google::gRPC::Client> or L<Google::Cloud::REST::Client>).

=head1 METHODS

=head2 METHODS

The following RPC methods are available in this client:

=over 4

=item * B<attach_network_endpoints>

Calls the RPC method C<AttachNetworkEndpoints> on the service. Takes a hash of parameters representing the request.

=item * B<delete>

Calls the RPC method C<Delete> on the service. Takes a hash of parameters representing the request.

=item * B<detach_network_endpoints>

Calls the RPC method C<DetachNetworkEndpoints> on the service. Takes a hash of parameters representing the request.

=item * B<get>

Calls the RPC method C<Get> on the service. Takes a hash of parameters representing the request.

=item * B<insert>

Calls the RPC method C<Insert> on the service. Takes a hash of parameters representing the request.

=item * B<list>

Calls the RPC method C<List> on the service. Takes a hash of parameters representing the request.

=item * B<list_network_endpoints>

Calls the RPC method C<ListNetworkEndpoints> on the service. Takes a hash of parameters representing the request.

=back



=head1 LICENSE AND COPYRIGHT

Copyright (C) 2026 Google LLC

t/01-service-GlobalNetworkEndpointGroups.t  view on Meta::CPAN

}

# D. Main test execution
package main;
use Google::Cloud::Compute::V1::GlobalNetworkEndpointGroupsClient;

my $client = Google::Cloud::Compute::V1::GlobalNetworkEndpointGroupsClient->new( credentials => 'dummy' );
ok($client, 'Instantiated generated client');
isa_ok($client->transport, 'Google::gRPC::Client', 'Client transport');

subtest 'attach_network_endpoints method' => sub {
    $client->transport->{mock_call} = sub {
        my ($args) = @_;
        is($args->{service}, 'google.cloud.compute.v1.GlobalNetworkEndpointGroups', 'Correct service path');
        is($args->{method}, 'AttachNetworkEndpoints', 'Correct RPC method');
        isa_ok($args->{request}, 'Google::Cloud::Compute::V1::Compute::AttachNetworkEndpointsGlobalNetworkEndpointGroupRequest', 'Request object');
        
        my $response = 'Google::Cloud::Compute::V1::Compute::Operation'->new();
        return $response;
    };
    
    my $res = $client->attach_network_endpoints();
    ok($res, 'Method returned a response');
    isa_ok($res, 'Google::Cloud::Compute::V1::Compute::Operation', 'Response object class');
    done_testing();
};

subtest 'delete method' => sub {
    $client->transport->{mock_call} = sub {
        my ($args) = @_;
        is($args->{service}, 'google.cloud.compute.v1.GlobalNetworkEndpointGroups', 'Correct service path');
        is($args->{method}, 'Delete', 'Correct RPC method');

t/01-service-GlobalNetworkEndpointGroups.t  view on Meta::CPAN

        my $response = 'Google::Cloud::Compute::V1::Compute::Operation'->new();
        return $response;
    };
    
    my $res = $client->delete();
    ok($res, 'Method returned a response');
    isa_ok($res, 'Google::Cloud::Compute::V1::Compute::Operation', 'Response object class');
    done_testing();
};

subtest 'detach_network_endpoints method' => sub {
    $client->transport->{mock_call} = sub {
        my ($args) = @_;
        is($args->{service}, 'google.cloud.compute.v1.GlobalNetworkEndpointGroups', 'Correct service path');
        is($args->{method}, 'DetachNetworkEndpoints', 'Correct RPC method');
        isa_ok($args->{request}, 'Google::Cloud::Compute::V1::Compute::DetachNetworkEndpointsGlobalNetworkEndpointGroupRequest', 'Request object');
        
        my $response = 'Google::Cloud::Compute::V1::Compute::Operation'->new();
        return $response;
    };
    
    my $res = $client->detach_network_endpoints();
    ok($res, 'Method returned a response');
    isa_ok($res, 'Google::Cloud::Compute::V1::Compute::Operation', 'Response object class');
    done_testing();
};

subtest 'get method' => sub {
    $client->transport->{mock_call} = sub {
        my ($args) = @_;
        is($args->{service}, 'google.cloud.compute.v1.GlobalNetworkEndpointGroups', 'Correct service path');
        is($args->{method}, 'Get', 'Correct RPC method');

t/01-service-GlobalNetworkEndpointGroups.t  view on Meta::CPAN

        my $response = 'Google::Cloud::Compute::V1::Compute::NetworkEndpointGroupList'->new();
        return $response;
    };
    
    my $res = $client->list();
    ok($res, 'Method returned a response');
    isa_ok($res, 'Google::Cloud::Compute::V1::Compute::NetworkEndpointGroupList', 'Response object class');
    done_testing();
};

subtest 'list_network_endpoints method' => sub {
    $client->transport->{mock_call} = sub {
        my ($args) = @_;
        is($args->{service}, 'google.cloud.compute.v1.GlobalNetworkEndpointGroups', 'Correct service path');
        is($args->{method}, 'ListNetworkEndpoints', 'Correct RPC method');
        isa_ok($args->{request}, 'Google::Cloud::Compute::V1::Compute::ListNetworkEndpointsGlobalNetworkEndpointGroupsRequest', 'Request object');
        
        my $response = 'Google::Cloud::Compute::V1::Compute::NetworkEndpointGroupsListNetworkEndpoints'->new();
        return $response;
    };
    
    my $res = $client->list_network_endpoints();
    ok($res, 'Method returned a response');
    isa_ok($res, 'Google::Cloud::Compute::V1::Compute::NetworkEndpointGroupsListNetworkEndpoints', 'Response object class');
    done_testing();
};

done_testing();

t/01-service-NetworkEndpointGroups.t  view on Meta::CPAN

        my $response = 'Google::Cloud::Compute::V1::Compute::NetworkEndpointGroupAggregatedList'->new();
        return $response;
    };
    
    my $res = $client->aggregated_list();
    ok($res, 'Method returned a response');
    isa_ok($res, 'Google::Cloud::Compute::V1::Compute::NetworkEndpointGroupAggregatedList', 'Response object class');
    done_testing();
};

subtest 'attach_network_endpoints method' => sub {
    $client->transport->{mock_call} = sub {
        my ($args) = @_;
        is($args->{service}, 'google.cloud.compute.v1.NetworkEndpointGroups', 'Correct service path');
        is($args->{method}, 'AttachNetworkEndpoints', 'Correct RPC method');
        isa_ok($args->{request}, 'Google::Cloud::Compute::V1::Compute::AttachNetworkEndpointsNetworkEndpointGroupRequest', 'Request object');
        
        my $response = 'Google::Cloud::Compute::V1::Compute::Operation'->new();
        return $response;
    };
    
    my $res = $client->attach_network_endpoints();
    ok($res, 'Method returned a response');
    isa_ok($res, 'Google::Cloud::Compute::V1::Compute::Operation', 'Response object class');
    done_testing();
};

subtest 'delete method' => sub {
    $client->transport->{mock_call} = sub {
        my ($args) = @_;
        is($args->{service}, 'google.cloud.compute.v1.NetworkEndpointGroups', 'Correct service path');
        is($args->{method}, 'Delete', 'Correct RPC method');

t/01-service-NetworkEndpointGroups.t  view on Meta::CPAN

        my $response = 'Google::Cloud::Compute::V1::Compute::Operation'->new();
        return $response;
    };
    
    my $res = $client->delete();
    ok($res, 'Method returned a response');
    isa_ok($res, 'Google::Cloud::Compute::V1::Compute::Operation', 'Response object class');
    done_testing();
};

subtest 'detach_network_endpoints method' => sub {
    $client->transport->{mock_call} = sub {
        my ($args) = @_;
        is($args->{service}, 'google.cloud.compute.v1.NetworkEndpointGroups', 'Correct service path');
        is($args->{method}, 'DetachNetworkEndpoints', 'Correct RPC method');
        isa_ok($args->{request}, 'Google::Cloud::Compute::V1::Compute::DetachNetworkEndpointsNetworkEndpointGroupRequest', 'Request object');
        
        my $response = 'Google::Cloud::Compute::V1::Compute::Operation'->new();
        return $response;
    };
    
    my $res = $client->detach_network_endpoints();
    ok($res, 'Method returned a response');
    isa_ok($res, 'Google::Cloud::Compute::V1::Compute::Operation', 'Response object class');
    done_testing();
};

subtest 'get method' => sub {
    $client->transport->{mock_call} = sub {
        my ($args) = @_;
        is($args->{service}, 'google.cloud.compute.v1.NetworkEndpointGroups', 'Correct service path');
        is($args->{method}, 'Get', 'Correct RPC method');

t/01-service-NetworkEndpointGroups.t  view on Meta::CPAN

        my $response = 'Google::Cloud::Compute::V1::Compute::NetworkEndpointGroupList'->new();
        return $response;
    };
    
    my $res = $client->list();
    ok($res, 'Method returned a response');
    isa_ok($res, 'Google::Cloud::Compute::V1::Compute::NetworkEndpointGroupList', 'Response object class');
    done_testing();
};

subtest 'list_network_endpoints method' => sub {
    $client->transport->{mock_call} = sub {
        my ($args) = @_;
        is($args->{service}, 'google.cloud.compute.v1.NetworkEndpointGroups', 'Correct service path');
        is($args->{method}, 'ListNetworkEndpoints', 'Correct RPC method');
        isa_ok($args->{request}, 'Google::Cloud::Compute::V1::Compute::ListNetworkEndpointsNetworkEndpointGroupsRequest', 'Request object');
        
        my $response = 'Google::Cloud::Compute::V1::Compute::NetworkEndpointGroupsListNetworkEndpoints'->new();
        return $response;
    };
    
    my $res = $client->list_network_endpoints();
    ok($res, 'Method returned a response');
    isa_ok($res, 'Google::Cloud::Compute::V1::Compute::NetworkEndpointGroupsListNetworkEndpoints', 'Response object class');
    done_testing();
};

subtest 'test_iam_permissions method' => sub {
    $client->transport->{mock_call} = sub {
        my ($args) = @_;
        is($args->{service}, 'google.cloud.compute.v1.NetworkEndpointGroups', 'Correct service path');
        is($args->{method}, 'TestIamPermissions', 'Correct RPC method');

t/01-service-RegionNetworkEndpointGroups.t  view on Meta::CPAN

}

# D. Main test execution
package main;
use Google::Cloud::Compute::V1::RegionNetworkEndpointGroupsClient;

my $client = Google::Cloud::Compute::V1::RegionNetworkEndpointGroupsClient->new( credentials => 'dummy' );
ok($client, 'Instantiated generated client');
isa_ok($client->transport, 'Google::gRPC::Client', 'Client transport');

subtest 'attach_network_endpoints method' => sub {
    $client->transport->{mock_call} = sub {
        my ($args) = @_;
        is($args->{service}, 'google.cloud.compute.v1.RegionNetworkEndpointGroups', 'Correct service path');
        is($args->{method}, 'AttachNetworkEndpoints', 'Correct RPC method');
        isa_ok($args->{request}, 'Google::Cloud::Compute::V1::Compute::AttachNetworkEndpointsRegionNetworkEndpointGroupRequest', 'Request object');
        
        my $response = 'Google::Cloud::Compute::V1::Compute::Operation'->new();
        return $response;
    };
    
    my $res = $client->attach_network_endpoints();
    ok($res, 'Method returned a response');
    isa_ok($res, 'Google::Cloud::Compute::V1::Compute::Operation', 'Response object class');
    done_testing();
};

subtest 'delete method' => sub {
    $client->transport->{mock_call} = sub {
        my ($args) = @_;
        is($args->{service}, 'google.cloud.compute.v1.RegionNetworkEndpointGroups', 'Correct service path');
        is($args->{method}, 'Delete', 'Correct RPC method');

t/01-service-RegionNetworkEndpointGroups.t  view on Meta::CPAN

        my $response = 'Google::Cloud::Compute::V1::Compute::Operation'->new();
        return $response;
    };
    
    my $res = $client->delete();
    ok($res, 'Method returned a response');
    isa_ok($res, 'Google::Cloud::Compute::V1::Compute::Operation', 'Response object class');
    done_testing();
};

subtest 'detach_network_endpoints method' => sub {
    $client->transport->{mock_call} = sub {
        my ($args) = @_;
        is($args->{service}, 'google.cloud.compute.v1.RegionNetworkEndpointGroups', 'Correct service path');
        is($args->{method}, 'DetachNetworkEndpoints', 'Correct RPC method');
        isa_ok($args->{request}, 'Google::Cloud::Compute::V1::Compute::DetachNetworkEndpointsRegionNetworkEndpointGroupRequest', 'Request object');
        
        my $response = 'Google::Cloud::Compute::V1::Compute::Operation'->new();
        return $response;
    };
    
    my $res = $client->detach_network_endpoints();
    ok($res, 'Method returned a response');
    isa_ok($res, 'Google::Cloud::Compute::V1::Compute::Operation', 'Response object class');
    done_testing();
};

subtest 'get method' => sub {
    $client->transport->{mock_call} = sub {
        my ($args) = @_;
        is($args->{service}, 'google.cloud.compute.v1.RegionNetworkEndpointGroups', 'Correct service path');
        is($args->{method}, 'Get', 'Correct RPC method');

t/01-service-RegionNetworkEndpointGroups.t  view on Meta::CPAN

        my $response = 'Google::Cloud::Compute::V1::Compute::NetworkEndpointGroupList'->new();
        return $response;
    };
    
    my $res = $client->list();
    ok($res, 'Method returned a response');
    isa_ok($res, 'Google::Cloud::Compute::V1::Compute::NetworkEndpointGroupList', 'Response object class');
    done_testing();
};

subtest 'list_network_endpoints method' => sub {
    $client->transport->{mock_call} = sub {
        my ($args) = @_;
        is($args->{service}, 'google.cloud.compute.v1.RegionNetworkEndpointGroups', 'Correct service path');
        is($args->{method}, 'ListNetworkEndpoints', 'Correct RPC method');
        isa_ok($args->{request}, 'Google::Cloud::Compute::V1::Compute::ListNetworkEndpointsRegionNetworkEndpointGroupsRequest', 'Request object');
        
        my $response = 'Google::Cloud::Compute::V1::Compute::NetworkEndpointGroupsListNetworkEndpoints'->new();
        return $response;
    };
    
    my $res = $client->list_network_endpoints();
    ok($res, 'Method returned a response');
    isa_ok($res, 'Google::Cloud::Compute::V1::Compute::NetworkEndpointGroupsListNetworkEndpoints', 'Response object class');
    done_testing();
};

done_testing();