lib/MogileFS/RebalancePolicy.pm

   1 package MogileFS::RebalancePolicy;
   2 use strict;
   3 use warnings;
   4
   5 sub new {
   6     my ($class) = @_;
   7     return bless {
   8         'devfid_magazine' => [], # devfids queued up for next
   9                                  # called to 'devfid_to_rebalance'
  10     }, $class;
  11 }
  12
  13 # return DevFID (or undef) of a devid to migrate away
  14 sub devfid_to_rebalance {
  15     my ($self) = @_;
  16     my $mag = $self->{devfid_magazine};
  17     return shift @$mag if @$mag;
  18     push @$mag, $self->devfids_to_rebalance;
  19     return shift @$mag;
  20 }
  21
  22 sub devfids_to_rebalance {
  23     return ()
  24 }
  25
  26 # return MogileFS::Device objects which shouldn't
  27 # be replicated towards, since it wouldn't help
  28 # out...
  29 sub dest_devs_to_avoid {
  30     my $self = shift;
  31     ()
  32 }
  33
  34 1;