AWS-S3
view release on metacpan - search on metacpan
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",
"Class::Load" : "0",
"Digest::HMAC_SHA1" : "0",
"HTTP::Date" : "0",
"HTTP::Headers" : "6.07",
"JSON::XS" : "0",
"LWP::UserAgent::Determined" : "0",
"MIME::Base64" : "0",
"Moose" : "2.0",
"MooseX::Types" : "0",
"MooseX::Types::URI" : "0",
"Test::Deep" : "0",
"URI::Escape" : "0",
"XML::LibXML" : "0",
"XML::LibXML::XPathContext" : "0",
"perl" : "5.010001"
}
}
},
"release_status" : "stable",
"resources" : {
"bugtracker" : {
---
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:
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',
view release on metacpan - search on metacpan
( run in 1.218 second using v1.00-cache-2.02-grep-82fe00e-cpan-585fae043c8 )