Lines Matching refs:self
76 my $self = $class->SUPER::new(
88 $self->{ticket_lifetime_hint} = 0;
89 $self->{ticket} = "";
91 return $self;
96 my $self = shift;
98 my $ticket_lifetime_hint = unpack('N', $self->data);
99 my $ticket_len = unpack('n', $self->data);
100 my $ticket = substr($self->data, 6, $ticket_len);
102 $self->ticket_lifetime_hint($ticket_lifetime_hint);
103 $self->ticket($ticket);
110 my $self = shift;
113 $data = pack('N', $self->ticket_lifetime_hint);
114 $data .= pack('n', length($self->ticket));
115 $data .= $self->ticket;
117 $self->data($data);
123 my $self = shift;
125 $self->{ticket_lifetime_hint} = shift;
127 return $self->{ticket_lifetime_hint};
131 my $self = shift;
133 $self->{ticket} = shift;
135 return $self->{ticket};