Amazon-S3

 view release on metacpan or  search on metacpan

S3TestUtils.pm  view on Meta::CPAN

package S3TestUtils;

use strict;
use warnings;

use Data::Dumper;
use English qw(-no_match_vars);
use List::Util qw(any);
use Readonly;
use Test::More;

use parent qw(Exporter);

# chars
Readonly our $EMPTY => q{};
Readonly our $SLASH => q{/};

lib/Amazon/S3.pm  view on Meta::CPAN

  get_parameters
  create_xml_request
  create_api_uri
  create_query_string
);

use Amazon::S3::Logger;
use Amazon::S3::Signature::V4;

use Carp;
use Data::Dumper;
use Digest::HMAC_SHA1;
use Digest::MD5 qw(md5_hex);
use English     qw(-no_match_vars);
use HTTP::Date;
use LWP::UserAgent::Determined;
use List::Util   qw( any pairs none );
use MIME::Base64 qw(encode_base64 decode_base64);
use Scalar::Util qw( reftype blessed );
use URI;
use XML::Simple;

lib/Amazon/S3/Bucket.pm  view on Meta::CPAN

package Amazon::S3::Bucket;

use strict;
use warnings;

use Amazon::S3::Constants qw(:all);
use Amazon::S3::Util      qw(:all);

use Carp;
use Data::Dumper;
use Digest::MD5       qw(md5 md5_hex);
use Digest::MD5::File qw(file_md5 file_md5_hex);
use English           qw(-no_match_vars);
use File::stat;
use IO::File;
use IO::Scalar;
use MIME::Base64;
use List::Util   qw(none pairs);
use Scalar::Util qw(reftype);
use URI;

lib/Amazon/S3/BucketV2.pm  view on Meta::CPAN

package Amazon::S3::BucketV2;

use strict;
use warnings;

use Amazon::S3::Constants qw(:all);
use Amazon::S3::Util qw(:all);

use Carp;
use Data::Dumper;
use English qw(-no_match_vars);
use List::Util qw(pairs);
use Scalar::Util qw(reftype);

use parent qw(Amazon::S3::Bucket);

our $VERSION = '2.0.2';  ## no critic (RequireInterpolation)

######################################################################
our @GET_OBJECT_METHODS = (

lib/Amazon/S3/Util.pm  view on Meta::CPAN

package Amazon::S3::Util;

use strict;
use warnings;

use Amazon::S3::Constants qw(:all);
use Data::Dumper;
use Digest::MD5       qw(md5 md5_hex);
use Digest::MD5::File qw(file_md5 file_md5_hex);
use English           qw(-no_match_vars);
use MIME::Base64;
use Scalar::Util qw(reftype);
use URI::Escape  qw(uri_escape_utf8);
use XML::Simple;

use parent qw(Exporter);

t/01-api.t  view on Meta::CPAN

#!/usr/bin/env perl -w

use warnings;
use strict;

use lib qw( . .. lib);

use Data::Dumper;
use Digest::MD5::File qw(file_md5_hex);
use English qw(-no_match_vars);
use File::Temp qw( tempfile );
use List::Util qw(any);
use Test::More;

use S3TestUtils qw(:constants :subs);

our @REGIONS = (undef);

t/04-list-buckets.t  view on Meta::CPAN

use warnings;
use strict;

use lib qw(. .. lib);

use English qw(-no_match_vars);

use S3TestUtils qw(:constants :subs);

use Test::More;
use Data::Dumper;

my $host = set_s3_host();

if ( !$ENV{'AMAZON_S3_EXPENSIVE_TESTS'} ) {
  plan skip_all => 'Testing this module for real costs money.';
}
else {
  plan tests => 11;
}

t/05-multipart-upload.t  view on Meta::CPAN

## no critic

use warnings;
use strict;

use lib qw( . lib);

use Carp;

use Data::Dumper;
use Digest::MD5::File qw(file_md5_hex);
use English           qw{-no_match_vars};
use File::Temp        qw{ tempfile };
use Test::More;

use S3TestUtils qw(:constants :subs);

my $host = set_s3_host();

if ( !$ENV{'AMAZON_S3_EXPENSIVE_TESTS'} ) {

t/06-list-multipart-uploads.t  view on Meta::CPAN

## no critic

use warnings;
use strict;

use lib qw(. lib);

use Carp;

use Data::Dumper;
use Digest::MD5::File qw(file_md5_hex);
use English           qw(-no_match_vars);
use File::Temp        qw( tempfile );
use S3TestUtils       qw(:constants :subs);
use Test::More;
use XML::Simple qw{XMLin};

my $host = set_s3_host();

if ( !$ENV{'AMAZON_S3_EXPENSIVE_TESTS'} ) {