Net-CascadeCopy

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

  - preserve server insertion sort order

  - update to use latest version of Dist::Zilla

0.2.4

  - resolve a bug where source server is reused too many times
    - created a new method get_transfer_map for more introspection into transfer loop
    - thanks to mikegrb for the excellent bug report!

  - use Test::Differences in test cases

  - added test coverage report

  - added a roadmap
    
0.2.3

  - resolve multiple issues with transfers from 'localhost'
    - prevent failed transfers from 'localhost' from going into a loop, thanks to twelch!
    - prevent issues with hosts sorted after localhost, introduced in 0.2.0

META.yml  view on Meta::CPAN

---
abstract: 'Rapidly propagate (rsync/scp/...) files to many servers in multiple locations.'
author:
  - 'Alex White <VVu@geekfarm.org>'
build_requires:
  English: 0
  Test::Differences: 0
  Test::More: 0.88
configure_requires:
  ExtUtils::MakeMaker: 6.31
dynamic_config: 0
generated_by: 'Dist::Zilla version 4.102341, CPAN::Meta::Converter version 2.102400'
license: bsd
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: Net-CascadeCopy

Makefile.PL  view on Meta::CPAN

use ExtUtils::MakeMaker 6.31;



my %WriteMakefileArgs = (
  'ABSTRACT' => 'Rapidly propagate (rsync/scp/...) files to many servers in multiple locations.',
  'AUTHOR' => 'Alex White <VVu@geekfarm.org>',
  'BUILD_REQUIRES' => {
    'English' => '0',
    'Test::Differences' => '0',
    'Test::More' => '0.88'
  },
  'CONFIGURE_REQUIRES' => {
    'ExtUtils::MakeMaker' => '6.31'
  },
  'DISTNAME' => 'Net-CascadeCopy',
  'EXE_FILES' => [],
  'LICENSE' => 'bsd',
  'NAME' => 'Net::CascadeCopy',
  'PREREQ_PM' => {

t/000-report-versions-tiny.t  view on Meta::CPAN

    return sprintf('%-45s => %-10s%-15s%s', $module, $pmver, $wanted, "\n");
}

eval { $v .= pmver('Benchmark','any version') };
eval { $v .= pmver('English','any version') };
eval { $v .= pmver('ExtUtils::MakeMaker','6.31') };
eval { $v .= pmver('Log::Log4perl','any version') };
eval { $v .= pmver('Mouse','any version') };
eval { $v .= pmver('POSIX','any version') };
eval { $v .= pmver('Proc::Queue','any version') };
eval { $v .= pmver('Test::Differences','any version') };
eval { $v .= pmver('Test::More','0.88') };



# All done.
$v .= <<'EOT';

Thanks for using my code.  I hope it works for you.
If not, please try and include this output in the bug report.
That will help me reproduce the issue and solve you problem.

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

#!perl
use Test::More tests => 26;
use Test::Differences;
use strict;

#use Log::Log4perl qw(:easy);
#Log::Log4perl->easy_init($DEBUG);
#my $logger = get_logger( 'default' );

use Net::CascadeCopy;

my $transfer_start = new Benchmark;

t/06_delay_bug.t  view on Meta::CPAN

#!perl
use strict;

#use Log::Log4perl qw(:easy);
#Log::Log4perl->easy_init($DEBUG);
#my $logger = get_logger( 'default' );

use Net::CascadeCopy;
use Test::More tests => 3;
use Test::Differences;

my $ccp = Net::CascadeCopy->new( { ssh         => 'sleep 5; echo',
                                   command     => 'sleep 3; echo',
                                   source_path => '/foo',
                                   target_path => '/foo',
                               } );


my @hosts1 = map { "host$_" } 101 .. 110;
ok( $ccp->add_group( "first", [ @hosts1 ] ),