| … | … | ||
|---|---|---|---|
| 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 |