File Coverage

blib/lib/HTML5/DOM/Element.pm
Criterion Covered Total %
statement 13 15 86.6
branch 0 2 0.0
condition n/a
subroutine 5 6 83.3
pod 0 2 0.0
total 18 25 72.0


line stmt bran cond sub pod time code
1             package HTML5::DOM::Element;
2 3     3   20 use strict;
  3         5  
  3         90  
3 3     3   51 use warnings;
  3         6  
  3         91  
4              
5 3     3   18 use HTML5::DOM::Node;
  3         4  
  3         104  
6 3     3   2169 use HTML5::DOM::TokenList;
  3         8  
  3         325  
7              
8             our @ISA = ("HTML5::DOM::Node");
9              
10             sub classList {
11 17     17 0 39754 return HTML5::DOM::TokenList->new($_[0], "class");
12             }
13              
14             sub className {
15 0     0 0   my $class = $_[0]->attr("class");
16 0 0         return defined $class ? $class : "";
17             }
18              
19             1;