# WWW::Extractor::XML::Element::Lonely
# a single tag element
# e.g. <BR/>

package WWW::Extractor::XML::Element::Lonely;

use strict;
use vars qw(@ISA);

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

#WWW::Extractor::XML::Element::Lonely->new($tag, @$attr)
#WWW::Extractor::XML::Element::Lonely->new($tag, %$attr, [@$attr_seq])

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

sub new {
    my $class = shift;
    my $self = SUPER::new $class (@_);
    $self->has_end(0);
    return $self;
}

sub type {
    return 'L';
}

sub as_string {
    my $self = shift;
    my $s = $self->SUPER::as_string;
    substr $s, -1, 0, '/';
    return $s;
}

1