… | … | ||
---|---|---|---|
140 | $self->connect ($1 => delete $self->{$_}); | 140 | $self->connect ($1 => delete $self->{$_}); |
141 | } | 141 | } |
142 | } | 142 | } |
143 | 143 | ||
144 | $self | 144 | $self |
145 | } | ||
146 | |||
147 | sub destroy { | ||
148 | my ($self) = @_; | ||
149 | |||
150 | $self->hide; | ||
151 | %$self = (); | ||
145 | } | 152 | } |
146 | 153 | ||
147 | sub show { | 154 | sub show { |
148 | my ($self) = @_; | 155 | my ($self) = @_; |
149 | 156 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |