# WWW::Extractor::XML::Element::End
# an end container element

package WWW::Extractor::XML::Element::End;

use strict;
use vars qw(@ISA);

use WWW::Extractor::XML::Element;

#WWW::Extractor::XML::Element::End->new($tag)

@ISA = qw|WWW::Extractor::XML::Element|;

sub new {
    my ($class, $tag) = @_;
    return bless {
	tag=>lc $tag,
	start=>undef
    }, $class;
}

sub type {
    return 'E';
}

sub as_string {
    my $self = shift;
    return "</$$self{tag}>";
}

sub has_start {
    my $self = shift;
    return defined $self->{start};
}

1