Lines Matching +full:data +full:- +full:shift

17     my $class = shift;
19         $data,
24     my $self = $class->SUPER::new(
27         $data,
32     $self->{ticket_lifetime_hint} = 0;
33     $self->{ticket} = "";
40     my $self = shift;
42     my $ticket_lifetime_hint = unpack('N', $self->data);
43     my $ticket_len = unpack('n', $self->data);
44     my $ticket = substr($self->data, 6, $ticket_len);
46     $self->ticket_lifetime_hint($ticket_lifetime_hint);
47     $self->ticket($ticket);
51 #Reconstruct the on-the-wire message data following changes
54     my $self = shift;
55     my $data;
57     $data = pack('N', $self->ticket_lifetime_hint);
58     $data .= pack('n', length($self->ticket));
59     $data .= $self->ticket;
61     $self->data($data);
67     my $self = shift;
69       $self->{ticket_lifetime_hint} = shift;
71     return $self->{ticket_lifetime_hint};
75     my $self = shift;
77       $self->{ticket} = shift;
79     return $self->{ticket};