Amazon-S3

 view release on metacpan or  search on metacpan

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);

t/02-logger.t  view on Meta::CPAN

#!/usr/bin/perl -w

## no critic

use warnings;
use strict;

use lib qw(lib);

use English qw{-no_match_vars};

use Test::More;
use Test::Output;

plan tests => 12;

use_ok('Amazon::S3');

t/03-region.t  view on Meta::CPAN

#!/usr/bin/perl -w

## no critic

use warnings;
use strict;

use lib qw(lib);

use English qw{-no_match_vars};

use Test::More;

plan tests => 7;

use_ok('Amazon::S3');

my $s3 = Amazon::S3->new(

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

#!/usr/bin/perl -w

## no critic

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();

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

#!/usr/bin/perl -w

## 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);

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

#!/usr/bin/perl -w

## 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};