File Coverage

blib/lib/HTML/Feature/Result.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	27	27	100.0

package HTML::Feature::Result;

use strict;
use warnings;
use base qw/Class::Accessor::Fast/;
__PACKAGE__->mk_accessors(qw/text title desc element root/);

sub new {
	my $class = shift;
	my $self = bless {@_}, $class;
	return $self;
}

sub element_delete {
	my $self = shift;
    if($self->root){
        $self->root->delete();
    }
}

sub DESTROY{
	my $self = shift;
    $self->element_delete();
}

1;

__END__