File Coverage

blib/lib/MogileFS/ReplicationPolicy/Union.pm

Criterion	Covered	Total	%
statement	18	20	90.0
branch	2	2	100.0
condition			n/a
subroutine	4	5	80.0
pod	0	2	0.0
total	24	29	82.7

package MogileFS::ReplicationPolicy::Union;
use strict;
use base 'MogileFS::ReplicationPolicy';
use MogileFS::ReplicationRequest qw(ALL_GOOD TOO_GOOD TEMP_NO_ANSWER);

sub new_from_policy_args {
    my ($class, $argref) = @_;

    # first, eat off the open paren
    $$argref =~ s/^\s*\(\s*//;

    my @policies;
  POLICY:
    while (1) {
        my $pol = MogileFS::ReplicationPolicy->new_from_policy_string($argref);
        push @policies, $pol;
        # eat a comma if it's there.
        $$argref =~ s/^\s*\,\s*//;
        last if $$argref =~ s/^\s*\)\s*//;
    }

    return bless {
        policies => \@policies,
    }, $class;
}


sub replicate_to {
    my ($self, %args) = @_;

    # TODO: walk $self->{
    die "not implemented";
}

1;

__END__