AnyEvent-Net-Amazon-S3

 view release on metacpan or  search on metacpan

examples/backup_cpan.pl  view on Meta::CPAN

#!/home/acme/bin/perl
use strict;
use warnings;
use lib 'lib';
use Data::Stream::Bulk::Path::Class;
use Net::Amazon::S3;
use Perl6::Say;
use Path::Class;
use Set::Object;
use Term::ProgressBar::Simple;
use List::Util qw(sum);
use Digest::MD5::File qw(file_md5_hex);
use BerkeleyDB::Manager;
use Cwd;

t/00use.t  view on Meta::CPAN

#!perl
use warnings;
use strict;

use lib 'lib';

use Test::More tests => 4;

use_ok( 'AnyEvent::Net::Amazon::S3' );
use_ok( 'AnyEvent::Net::Amazon::S3::Client' );
use_ok( 'AnyEvent::Net::Amazon::S3::Client::Bucket' );
use_ok( 'AnyEvent::Net::Amazon::S3::Client::Object' );

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

#!perl
use warnings;
use strict;
use lib 'lib';
use Digest::MD5::File qw(file_md5_hex);
use Test::More;

unless ( $ENV{'AMAZON_S3_EXPENSIVE_TESTS'} ) {
    plan skip_all => 'Testing this module for real costs money.';
} else {
#    plan tests => 71 * 2 + 4;
    plan tests => 71 * 1 + 4;
}

t/02client.t  view on Meta::CPAN

#!perl
use warnings;
use strict;
use lib 'lib';
use Digest::MD5::File qw(file_md5_hex);
use LWP::Simple;
use File::stat;
use Test::More;
use Test::Exception;
use File::Temp qw/ :seekable /;

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

t/03token.t  view on Meta::CPAN

#!perl
use warnings;
use strict;
use lib 'lib';

use Test::More;
use Test::Exception;

unless ( $ENV{'AWS_ACCESS_KEY_ID'} and
         $ENV{'AWS_ACCESS_KEY_SECRET'} and
         $ENV{'AWS_ACCESS_TOKEN'} ) {
    plan skip_all =>
        'Need these vars in ENV: AWS_ACCESS_KEY_ID, ' .
        'AWS_ACCESS_KEY_SECRET, AWS_ACCESS_TOKEN';