Lines Matching refs:self
19 my ($self, $attr) = @_;
21 return $self->SUPER::_default_for($attr);
26 my ($self) = @_;
27 ($self->SUPER::_standard_keys(), keys %_attr_data);
33 my $self = shift;
34 $self->{_server} = HTTPServer->new (LocalAddr => 'localhost',
41 my $self = shift;
44 $self->{_server}->run ($self->{_input}, $synch_func);
48 my $self = shift;
50 $ret =~ s/{{port}}/$self->{_server}->sockport/eg;