File Coverage

blib/lib/HTML/DOM/Comment.pm

Criterion	Covered	Total	%
statement	16	17	94.1
branch	0	2	0.0
condition	2	6	33.3
subroutine	7	8	87.5
pod	3	5	60.0
total	28	38	73.6

package HTML::DOM::Comment;

use warnings;
use strict;

use HTML::DOM::Node 'COMMENT_NODE';

require HTML::DOM::CharacterData;

our @ISA = 'HTML::DOM::CharacterData';
our $VERSION = '0.057';

sub new { # $_[1] contains the text
	$_[0]->SUPER::new('~comment', text => $_[1]);
}

# ---------------- NODE METHODS ---------- #

sub nodeName { '#comment' }
*nodeType = \&COMMENT_NODE;

# ---------------- OVERRIDDEN HTML::Element METHODS ---------- #

sub starttag { sprintf "", shift->data }
sub endtag   { '' }

sub isa { # Lie to HTML::Element 4
 caller eq 'HTML::Element' && VERSION HTML::Element >= 4
  and $_[1] eq 'HTML::DOM::Element' and return 1;
 goto &{;can{$_[0]}"SUPER::isa"};
}

1
__END__