Lines Matching refs:self

432     my $self = shift;
433     if ($self->{pid}) {
434         kill 2, $self->{pid};
441     my $self = shift;
442     if ($self->{pid}) {
443         kill 15, $self->{pid};
450     my $self = shift;
451     if ($self->{pid}) {
452         kill 'SIGUSR1', $self->{pid};
459     my $self = shift;
460     if ($self->{pid}) {
461         kill 'SIGHUP', $self->{pid};
469     my $self = shift;
470     if ($self->{pid}) {
471         return waitpid($self->{pid}, WNOHANG) >= 0 ? 1 : 0;
482     my $self = shift;
484     if ($self->{conn} && ($self->{domainsocket} || getpeername($self->{conn}))) {
485         return $self->{conn};
487     return $self->new_sock;
491     my $self = shift;
492     if ($self->{domainsocket}) {
493         return IO::Socket::UNIX->new(Peer => $self->{domainsocket});
497         return eval qq{ IO::Socket::SSL->new(PeerAddr => "$self->{host}:$self->{port}",
505         return IO::Socket::INET->new(PeerAddr => "$self->{host}:$self->{port}");
511     my $self = shift;
515         return eval qq{ IO::Socket::SSL->new(PeerAddr => "$self->{host}:$port",
523     my $self = shift;
525                                  PeerPort => $self->{udpport},
585     my $self = shift;
586     $self->{_be} = [];
587     for my $srv (@{$self->{_srv}}) {
589         push(@{$self->{_be}}, $be);
594     my $self = shift;
596     $self->{_be}->[$idx] = _accept_backend($self->{_srv}->[$idx]);
600     my $self = shift;
602     $self->{_be}->[$idx]->close;
606     my $self = shift;
610     $s->add($self->{_srv}->[$idx]);
615     my $self = shift;
616     my $sel = $self->{_csel};
617     if (exists $self->{_c}) {
618         $sel->remove($self->{_c});
620     $self->{_c} = shift;
621     $sel->add($self->{_c});
625     my $self = shift;
626     my $c = $self->{_c};
632     my ($self, $wait) = @_;
633     return $self->{_csel}->can_read($wait);
638     my $self = shift;
640     my $c = $self->{_c};
642     $self->{_cmd} = $cmd;
648     my $self = shift;
652         if (exists $self->{_be}->[$list]) {
653             push(@l, $self->{_be}->[$list]);
655             @l = @{$self->{_be}};
661             push(@l, $self->{_be}->[$i]);
670     my $self = shift;
673     die "issue a a command with c_send before calling be_recv_c" unless exists $self->{_cmd};
675     my $l = $self->_be_list($list);
676     my $cmd = $self->{_cmd};
686     my $self = shift;
691     my $l = $self->_be_list($list);
699     my $self = shift;
704     my $l = $self->_be_list($list);
713     my $self = shift;
717     $self->{_becmd} = $cmd;
718     my $l = $self->_be_list($list);
727     my $self = shift;
730     my $cmd = $self->{_becmd};
731     my $c = $self->{_c};
737     my $self = shift;
741     my $c = $self->{_c};
747     my $self = shift;
748     delete $self->{_becmd} if exists $self->{_becmd};
749     delete $self->{_cmd} if exists $self->{_cmd};
750     $self->check_c();