From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

BARNEY / Net-Amazon-S3-0.991 / lib / Net / Amazon / S3 / Operation / Objects / List / Response.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
—
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119

              
package Net::Amazon::S3::Operation::Objects::List::Response;
# ABSTRACT: An internal class to list a bucket (List Objects Version 1)
$Net::Amazon::S3::Operation::Objects::List::Response::VERSION = '0.991';
use Moose;
extends 'Net::Amazon::S3::Response';
sub bucket {
        $_[0]->_data->{bucket};
}
sub prefix {
        $_[0]->_data->{prefix};
}
sub marker {
        $_[0]->_data->{marker};
}
sub next_marker {
        $_[0]->_data->{next_marker};
}
sub max_keys {
        $_[0]->_data->{max_keys};
}
sub is_truncated {
        $_[0]->_data->{is_truncated};
}
sub contents {
        @{ $_[0]->_data->{contents} };
}
sub common_prefixes {
        @{ $_[0]->_data->{common_prefixes} };
}
sub _parse_data {
        my ($self) = @_;
        my $xpc = $self->xpath_context;
        my $data = {
                bucket       => scalar $xpc->findvalue ("/s3:ListBucketResult/s3:Name"),
                prefix       => scalar $xpc->findvalue ("/s3:ListBucketResult/s3:Prefix"),
                marker       => scalar $xpc->findvalue ("/s3:ListBucketResult/s3:Marker"),
                next_marker  => scalar $xpc->findvalue ("/s3:ListBucketResult/s3:NextMarker"),
                max_keys     => scalar $xpc->findvalue ("/s3:ListBucketResult/s3:MaxKeys"),
                is_truncated => scalar $xpc->findvalue ("/s3:ListBucketResult/s3:IsTruncated") eq 'true',
                contents     => [],
                common_prefixes => [],
        };
        for my $content ($xpc->findnodes ("/s3:ListBucketResult/s3:Contents")) {
                push @{ $data->{contents} }, {
                        key             => scalar $xpc->findvalue ("./s3:Key",          $content),
                        last_modified   => scalar $xpc->findvalue ("./s3:LastModified", $content),
                        etag            => scalar $xpc->findvalue ("./s3:ETag",         $content),
                        size            => scalar $xpc->findvalue ("./s3:Size",         $content),
                        storage_class   => scalar $xpc->findvalue ("./s3:StorageClass", $content),
                        owner => {
                                id          => $xpc->findvalue ("./s3:Owner/s3:ID",           $content),
                                displayname => $xpc->findvalue ("./s3:Owner/s3:DisplayName",  $content),
                        },
                };
                $data->{contents}[-1]{etag} =~ s/^"|"$//g;
        }
        for my $delimiter ($xpc->findnodes ("/s3:ListBucketResult/s3:Delimiter")) {
                $data->{delimiter} = $xpc->findvalue ('.', $delimiter);
        }
        if (defined $data->{delimiter}) {
                my $strip_delim = length $data->{delimiter};
                for my $common_prefix ($xpc->findnodes ("/s3:ListBucketResult/s3:CommonPrefixes")) {
                        my $prefix = $xpc->findvalue ('./s3:Prefix', $common_prefix);
                        $prefix = substr $prefix, 0, -$strip_delim;
                        push @{ $data->{common_prefixes} }, $prefix;
                }
        }
        return $data;
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Net::Amazon::S3::Operation::Objects::List::Response - An internal class to list a bucket (List Objects Version 1)
=head1 VERSION
version 0.991
=head1 DESCRIPTION
Implements operation L<< ListObjects|https://docs.aws.amazon.com/AmazonS3/latest/API/API_ListObjects.html >>.
=head1 AUTHOR
Branislav Zahradník <barney@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2022 by Amazon Digital Services, Leon Brocard, Brad Fitzpatrick, Pedro Figueiredo, Rusty Conover, Branislav Zahradník.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut