The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

MYDan::Util::GrsyncM - Replicate data via phased agent

SYNOPSIS

 use MYDan::Util::GrsyncM;
 my $grsyncm = MYDan::Util::GrsyncM->new
 (
     opt => +{
          '3' => 1,
          'dp' => '/tmp/path1',
          'sp' => '/tmp/path2',
          'retry' => 2,
          'timeout' => 300,
          'user' => 'root',
          'gave' => 3
     },
     sync => +{
        src => [],
        dst => [],
        agent => +{},
     },
     task => [ +{ sp => '', dp => '' }, +{ sp => '', dp => '' } ] #make by opt
 );
 $grsyncm->run();