# WWW::Extractor::XML::Comment - a comment in an XML / XHMTL / HTML document

package WWW::Extractor::XML::Element::Comment;
use vars qw(@ISA);

use strict;

use HTML::Entities;

# new WWW::Extractor::XML::Element::Comment($text)

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

sub type {
    return 'C';
}

sub as_string {
    my $self = shift;
    return '<!--'.$self->SUPER::as_string.'-->';
}

1