Net::Amazon::S3::Client调用initiate_multipart_upload报错求助

错误信息 #

Can't call method "findvalue" on an undefined value at /usr/local/share/perl5/Net/Amazon/S3/Operation/Object/Upload/Create/Response.pm line 17.

问题详情 #

• 可正常执行对象put操作、列出存储桶等功能
• Net::Amazon::S3::Client创建存储桶和对象的操作无异常
• 此前使用Paws::S3库可成功对该存储桶初始化分片上传，但上传至约21%时会卡住，切换为Net::Amazon::S3::Client后触发上述错误

代码片段 #

use Net::Amazon::S3;
our $s3 = Net::Amazon::S3->new({
    aws_access_key_id  => $config{'access_key_id'},
    aws_secret_access_key => $config{'access_key'},
    retry => 1
});

our $s3client = Net::Amazon::S3::Client->new( s3 => $s3 );

my $bucket = $s3client->bucket( name => $bucketName );

my $s3object = $bucket->object( key => 'test.txt' );
print 'Key: ' . $s3object->key;

my $uploadId = $s3object->initiate_multipart_upload; 

内容的提问来源于stack exchange，提问作者Timothy R. Butler