File Coverage

blib/lib/Apache/BalancerManager/Member.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch	2	2	100.0
condition			n/a
subroutine	4	4	100.0
pod	3	3	100.0
total	18	18	100.0

package Apache::BalancerManager::Member;
$Apache::BalancerManager::Member::VERSION = '0.002000';
# ABSTRACT: ClientSide representation of Apache BalancerManager Member

use Moo;

has $_ => ( is => 'rw' ) for qw(
   load_factor
   lb_set
   route
   route_redirect
   status
);

has $_ => ( is => 'ro' ) for qw(
   times_elected
   location
);

has $_ => (
   is => 'ro',
   coerce => sub {$_[0] =~ s/\s//g; $_[0]}
) for qw(from to);

has manager => (
   is => 'ro',
   required => 1,
   weak_ref => 1,
   handles => {
      _balancer_name => 'name',
      _nonce         => 'nonce',
      _url           => 'url',
      _get           => '_get',
      _post          => '_post',
   },
);

sub disable { $_[0]->status(0) }
sub enable { $_[0]->status(1) }

sub update {
   my $self = shift;

   my $uri = URI->new($self->_url);
   my $form = {
      w_status_D => ( $self->status ? 0 : 1 ),
      w_status_I => 0,
      w_status_N => 0,
      w_status_H => 0,
      w_status_R => 0,
      w_status_S => 0,
      w_lf    => $self->load_factor,
      w_ls    => $self->lb_set,
      w_wr    => $self->route,
      w_rr    => $self->route_redirect,
      w     => $self->location,
      b     => $self->_balancer_name,
      nonce => $self->_nonce,
   };
   $self->_post($uri, $form);
}

1;

__END__