Lines Matching refs:self
31 my $self = $class->SUPER::new(
43 $self->{server_version} = 0;
44 $self->{cookie_len} = 0;
45 $self->{cookie} = "";
47 return $self;
52 my $self = shift;
54 my ($server_version) = unpack('n', $self->data);
56 my $cookie_len = unpack('C', substr($self->data, $ptr));
58 my $cookie = substr($self->data, $ptr, $cookie_len);
60 $self->server_version($server_version);
61 $self->cookie_len($cookie_len);
62 $self->cookie($cookie);
64 $self->process_data();
73 my $self = shift;
80 my $self = shift;
83 $data = pack('n', $self->server_version);
84 $data .= pack('C', $self->cookie_len);
85 $data .= $self->cookie;
87 $self->data($data);
93 my $self = shift;
95 $self->{server_version} = shift;
97 return $self->{server_version};
101 my $self = shift;
103 $self->{cookie_len} = shift;
105 return $self->{cookie_len};
109 my $self = shift;
111 $self->{cookie} = shift;
113 return $self->{cookie};
