| HTML-Feature documentation | Contained in the HTML-Feature distribution. |
HTML::Feature::Result -Result Class of HTML::Feature
my $result = HTML::Feature::Result;
$result->title("title");
$result->desc("desc");
$result->text("text");
retrun $result;
avoid memory leak;
Takeshi Miki <miki@cpan.org>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| HTML-Feature documentation | Contained in the HTML-Feature distribution. |
package HTML::Feature::Result; use strict; use warnings; use base qw(HTML::Feature::Base); __PACKAGE__->mk_accessors($_) for qw(text title desc element root); sub element_delete { my $self = shift; if ( $self->root ) { $self->root->delete(); } } sub DESTROY { my $self = shift; $self->element_delete(); } 1; __END__