File Coverage

blib/lib/MMM/Sync/Dummy.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	2	2	100.0
condition	4	4	100.0
subroutine	5	5	100.0
pod	1	1	100.0
total	29	29	100.0

package MMM::Sync::Dummy;

use strict;
use warnings;
use MMM::Sync;
our @ISA = qw(MMM::Sync);

=head1 NAME

MMM::Sync::Rsync

=cut

sub buildcmd {
    my ($self) = @_;

    my @command = ('/bin/true');

    my ($proto, $server, @sequence) = split(m'/+', $self->{source});
    defined($self->{runcount}) ? ($self->{runcount}++) : ($self->{runcount} = 0);
    $self->{val_return} = $sequence[$self->{runcount}] || 0;

    return @command;
}

sub _exitcode {
    my ($self, $exitstatus) = @_;

    return $self->{val_return} || 0;
}

1;

__END__