| 208 |
print $body; |
print $body; |
| 209 |
} |
} |
| 210 |
|
|
| 211 |
|
=item $self->exit |
| 212 |
|
|
| 213 |
|
Declares the instance ($self) no longer considered useful. |
| 214 |
|
|
| 215 |
|
=cut |
| 216 |
|
|
| 217 |
|
sub exit ($) { |
| 218 |
|
my $self = shift; |
| 219 |
|
delete $self->{wiki}; |
| 220 |
|
delete $self->{view}; |
| 221 |
|
delete $self->{viewobj}; |
| 222 |
|
$self->{exited} = 1; |
| 223 |
|
} |
| 224 |
|
|
| 225 |
|
sub DESTROY ($) { |
| 226 |
|
my $self = shift; |
| 227 |
|
$self->exit unless $self->{exited}; |
| 228 |
|
} |
| 229 |
|
|
| 230 |
=item $self->{entity}->{charset} |
=item $self->{entity}->{charset} |
| 231 |
=item $self->{entity}->{language} = [...] |
=item $self->{entity}->{language} = [...] |
| 232 |
=item $self->{entity}->{media_type} |
=item $self->{entity}->{media_type} |