AWS-S3
view release on metacpan or search on metacpan
- Updated some of the POD.
0.005 2011-11-21
- Setting file contents via a coderef now works properly.
0.004 2011-11-21
- I didn't update 'Changes' or 'META.yml' in v0.003 - fixing...
0.003 2011-11-21
- All basic functionality (that I need right now) appears to be working.
- Tests rewritten.
- Everything appears to be good.
0.002 2011-11-20
- Removed some incorrect POD.
0.001 2011-11-20
- Initial release.
"no_index" : {
"directory" : [
"t",
"inc"
]
},
"prereqs" : {
"build" : {
"requires" : {
"Data::Section::Simple" : "0",
"Test::Deep" : "0.112",
"Test::Exception" : "0.32",
"Test::More" : "0.31"
}
},
"configure" : {
"requires" : {
"ExtUtils::MakeMaker" : "0"
}
},
"runtime" : {
"requires" : {
"Carp" : "0",
"Digest::SHA" : "5.47",
"HTTP::Date" : "0",
"HTTP::Headers" : "6.07",
"JSON::XS" : "0",
"LWP" : "5.835",
"LWP::UserAgent::Determined" : "0",
"MIME::Base64" : "0",
"Moose" : "2.0",
"MooseX::Types" : "0",
"MooseX::Types::URI" : "0",
"Test::Deep" : "0",
"URI" : "1.59",
"URI::Escape" : "0",
"URI::QueryParam" : "0",
"XML::LibXML" : "0",
"XML::LibXML::XPathContext" : "0",
"perl" : "5.010001"
}
}
},
"release_status" : "stable",
---
abstract: unknown
author:
- 'Lee Johnson <leejo@cpan.org>'
build_requires:
Data::Section::Simple: '0'
Test::Deep: '0.112'
Test::Exception: '0.32'
Test::More: '0.31'
configure_requires:
ExtUtils::MakeMaker: '0'
dynamic_config: 1
generated_by: 'ExtUtils::MakeMaker version 7.62, CPAN::Meta::Converter version 2.150010'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: '1.4'
name: AWS-S3
no_index:
Digest::SHA: '5.47'
HTTP::Date: '0'
HTTP::Headers: '6.07'
JSON::XS: '0'
LWP: '5.835'
LWP::UserAgent::Determined: '0'
MIME::Base64: '0'
Moose: '2.0'
MooseX::Types: '0'
MooseX::Types::URI: '0'
Test::Deep: '0'
URI: '1.59'
URI::Escape: '0'
URI::QueryParam: '0'
XML::LibXML: '0'
XML::LibXML::XPathContext: '0'
perl: '5.010001'
resources:
bugtracker: https://github.com/leejo/AWS-S3/issues
homepage: https://metacpan.org/module/AWS-S3
license: http://dev.perl.org/licenses/
Makefile.PL view on Meta::CPAN
'Class::Load' => 0,
'XML::LibXML' => 0,
'XML::LibXML::XPathContext' => 0,
'LWP::UserAgent::Determined' => 0,
'Carp' => 0,
'HTTP::Date' => 0,
'HTTP::Headers' => 6.07,
'MIME::Base64' => 0,
'URI::Escape' => 0,
'Digest::HMAC_SHA1' => 0,
'Test::Deep' => 0,
'JSON::XS' => 0,
'LWP' => 5.835,
'Digest::SHA' => '5.47',
'URI' => 1.59,
'URI::QueryParam' => 0,
'Date::Parse' => 0,
},
BUILD_REQUIRES => {
'Test::More' => 0.31,
'Test::Deep' => 0.112,
'Test::Exception' => 0.32,
'Data::Section::Simple' => 0,
},
META_MERGE => {
resources => {
license => 'http://dev.perl.org/licenses/',
homepage => 'https://metacpan.org/module/AWS-S3',
bugtracker => 'https://github.com/leejo/AWS-S3/issues',
repository => 'https://github.com/leejo/AWS-S3',
},
},
t/001_compiles_pod.t view on Meta::CPAN
#!perl
use strict;
use warnings;
use Test::More;
use File::Find;
use Moose;
if(($ENV{HARNESS_PERL_SWITCHES} || '') =~ /Devel::Cover/) {
plan skip_all => 'HARNESS_PERL_SWITCHES =~ /Devel::Cover/';
}
if(!eval 'use Test::Pod; 1') {
*Test::Pod::pod_file_ok = sub { SKIP: { skip "pod_file_ok(@_) (Test::Pod is required)", 1 } };
}
if(!eval 'use Test::Pod::Coverage; 1') {
*Test::Pod::Coverage::pod_coverage_ok = sub { SKIP: { skip "pod_coverage_ok(@_) (Test::Pod::Coverage is required)", 1 } };
}
my @files;
find(
{
wanted => sub { /\.pm$/ and push @files, $File::Find::name },
no_chdir => 1
},
-e 'blib' ? 'blib' : 'lib',
);
plan tests => @files * 3;
for my $file (@files) {
my $module = $file; $module =~ s,\.pm$,,; $module =~ s,.*/?lib/,,; $module =~ s,/,::,g;
ok eval "use $module; 1", "use $module" or diag $@;
Test::Pod::pod_file_ok($file);
TODO: {
# not enough POD coverage yet,
local $TODO = 'POD coverage';
Test::Pod::Coverage::pod_coverage_ok($module);
}
}
t/002_changes.t view on Meta::CPAN
#!perl
use strict;
use warnings;
use Test::More;
eval 'use Test::CPAN::Changes';
plan skip_all => 'Test::CPAN::Changes required for this test' if $@;
changes_ok();
t/010_basic.t view on Meta::CPAN
#!/usr/bin/perl -w
use strict;
use warnings 'all';
use Test::More;
use Data::Dumper;
use FindBin qw/ $Bin /;
use lib "$Bin/../lib";
use Carp 'confess';
$SIG{__DIE__} = \&confess;
plan skip_all => '$ENV{AWS_ACCESS_KEY_ID} && $ENV{AWS_SECRET_ACCESS_KEY} must both be defined to run this test'
unless( $ENV{AWS_ACCESS_KEY_ID} && $ENV{AWS_SECRET_ACCESS_KEY} );
use Moose;
extends 'HTTP::Response';
sub content { return shift->{_msg}; }
1;
package main;
use Test::More 'no_plan';
use Test::Deep;
use Test::Exception;
use Data::Section::Simple 'get_data_section';
use Carp 'confess';
$SIG{__DIE__} = \&confess;
use_ok('AWS::S3');
my $s3 = AWS::S3->new(
access_key_id => $ENV{AWS_ACCESS_KEY_ID} // 'foo',
secret_access_key => $ENV{AWS_SECRET_ACCESS_KEY} // 'bar',
t/aws/s3/bucket.t view on Meta::CPAN
extends 'HTTP::Response';
sub content { shift->{_msg}; }
sub code { 200 }
sub is_success { 1 }
sub header { $_[1] =~ /content-length/i ? 1 : 'header' }
1;
package main;
use Test::More;
use Test::Exception;
use FindBin qw/ $Script /;
use Carp 'confess';
$SIG{__DIE__} = \&confess;
use_ok('AWS::S3');
note( "construction" );
my $s3 = AWS::S3->new(
access_key_id => $ENV{AWS_ACCESS_KEY_ID} // 'foo',
t/aws/s3/file.t view on Meta::CPAN
sub content { shift->{_msg}; }
sub code { 200 }
sub is_success { 1 }
sub header { $_[1] =~ /content-length/i ? 1 : 'header' }
1;
package main;
use Test::More;
use Test::Deep;
use URI::Escape qw/ uri_escape /;
use Carp 'confess';
$SIG{__DIE__} = \&confess;
use_ok('AWS::S3');
note( "construction" );
foreach my $leading_slashes ( 0,1 ) {
t/aws/s3/file_iterator.t view on Meta::CPAN
extends 'HTTP::Response';
sub content { shift->{_msg}; }
sub code { 200 }
sub is_success { 1 }
sub header { $_[1] =~ /content-length/i ? 1 : 'header' }
1;
package main;
use Test::More;
use Test::Deep;
use Test::Exception;
use FindBin qw/ $Script /;
use Data::Section::Simple 'get_data_section';
use Carp 'confess';
$SIG{__DIE__} = \&confess;
use_ok('AWS::S3');
use_ok('AWS::S3::FileIterator');
use_ok('AWS::S3::Bucket');
t/aws/s3/http_request.t view on Meta::CPAN
#!perl
use strict;
use warnings;
use Test::More;
use Test::Deep;
use FindBin qw/ $Script /;
use Carp 'confess';
$SIG{__DIE__} = \&confess;
use_ok('AWS::S3');
note( "construction" );
my $s3 = AWS::S3->new(
access_key_id => $ENV{AWS_ACCESS_KEY_ID} // 'foo',
t/aws/s3/signer.t view on Meta::CPAN
#!perl
use strict;
use warnings;
use Test::More;
use Test::Deep;
use Carp 'confess';
$SIG{__DIE__} = \&confess;
use_ok('AWS::S3');
note( "construction" );
my $s3 = AWS::S3->new(
access_key_id => $ENV{AWS_ACCESS_KEY_ID} // 'foo',
secret_access_key => $ENV{AWS_SECRET_ACCESS_KEY} // 'bar',
t/aws/s3/signer/v4.t view on Meta::CPAN
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.t'
use strict;
use warnings;
use ExtUtils::MakeMaker;
use FindBin '$Bin';
use constant TEST_COUNT => 13;
use Test::More tests => TEST_COUNT;
use_ok('AWS::S3::Signer::V4');
use_ok('HTTP::Request::Common');
my $signer = AWS::S3::Signer::V4->new(
-access_key => 'AKIDEXAMPLE',
-secret_key => 'wJalrXUtnFEMI/K7MDENG+bPxRfiCYEXAMPLEKEY'
);
ok( $signer, 'AWS::S3::Signer::V4->new' );
my $request = POST(
t/aws/s3/signer/v4_parse_host.t view on Meta::CPAN
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.t'
use strict;
use warnings;
use ExtUtils::MakeMaker;
use FindBin '$Bin';
use constant TEST_COUNT => 1169;
use Test::More tests => TEST_COUNT;
use Test::Deep;
use_ok('AWS::S3::Signer::V4');
my $signer = AWS::S3::Signer::V4->new(
-access_key => 'AKIDEXAMPLE',
-secret_key => 'wJalrXUtnFEMI/K7MDENG+bPxRfiCYEXAMPLEKEY'
);
isa_ok( $signer, 'AWS::S3::Signer::V4' );
# yes there is a bucket name here that matches a region name
( run in 1.089 second using v1.01-cache-2.11-cpan-fd5d4e115d8 )