AWS-S3

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

  - 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.

META.json  view on Meta::CPAN

   "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",

META.json  view on Meta::CPAN

            "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",

META.yml  view on Meta::CPAN

---
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:

META.yml  view on Meta::CPAN

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

t/aws/s3.t  view on Meta::CPAN


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 0.624 second using v1.01-cache-2.11-cpan-4d50c553e7e )