equal
deleted
inserted
replaced
89 $self->SUPER::put(@_) or die "Can't put: " . $self->message; |
89 $self->SUPER::put(@_) or die "Can't put: " . $self->message; |
90 } |
90 } |
91 |
91 |
92 sub get { |
92 sub get { |
93 my $self = shift; |
93 my $self = shift; |
94 $self->SUPER::get(@_) or die "Can't put: " . $self->message; |
94 $self->SUPER::get(@_) or die "Can't get: " . $self->message; |
95 } |
95 } |
96 |
96 |
97 sub binary { |
97 sub binary { |
98 my $self = shift; |
98 my $self = shift; |
99 $self->SUPER::binary(@_) or die "Can't set binary mode: " . $self->message; |
99 $self->SUPER::binary(@_) or die "Can't set binary mode: " . $self->message; |