Dackup::Target::S3 - Flexible file backup to/from Amazon S3

  use Dackup;
  use Net::Amazon::S3;

  my $s3 = Net::Amazon::S3->new(
      aws_access_key_id     => 'XXX',
      aws_secret_access_key => 'YYY',
      retry                 => 1,
  );

  my $client = Net::Amazon::S3::Client->new( s3 => $s3 );

  # You must have already created this bucket
  # see Net::Amazon::S3::Client
  my $bucket = $client->bucket( name => 'mybackups' );

  my $source = Dackup::Target::Filesystem->new(
      prefix => '/home/acme/important/' );

  my $destination = Dackup::Target::S3->new( 
      bucket => $bucket,
      prefix => 'important_backup/', # optional
  );

  my $dackup = Dackup->new(
      source      => $source,
      destination => $destination,
      delete      => 1,
  );
  $dackup->backup;

This is a Dackup target for Amazon's Simple Storage Service.

Leon Brocard <acme@astray.com>

Copyright (C) 2009, Leon Brocard.

This module is free software; you can redistribute it or modify it under the same terms as Perl itself.