Branch Coverage

blib/lib/MDOM/Token.pm
Criterion Covered Total %
branch 8 36 22.2


line true false branch
50 852 6 if (@_ == 2) { }
6 0 elsif (@_ == 3) { }
53 4 848 if ($_[0] eq 'MDOM::Token') { }
59 852 0 defined $_[0] ? :
65 0 6 substr($_[0], 0, 12) eq 'MDOM::Token::' ? :
66 6 0 defined $_[2] ? :
77 0 0 unless @_
78 0 0 substr($_[0], 0, 12) eq 'MDOM::Token::' ? :
81 0 0 ref($self) =~ /\b(?:Quote|Regex)\b/o ? :
82 0 0 $class =~ /\b(?:Quote|Regex)\b/o ? :
90 0 0 if $old_quote - $new_quote == 0
94 0 0 unless my $token = $class->new($$self{'content'})
158 0 0 unless my $Element = _INSTANCE(shift(), 'MDOM::Element')
159 0 0 if ($Element->isa('MDOM::Structure')) { }
0 0 elsif ($Element->isa('MDOM::Token')) { }
170 0 0 unless my $Element = _INSTANCE(shift(), 'MDOM::Element')
171 0 0 if ($Element->isa('MDOM::Structure')) { }
0 0 elsif ($Element->isa('MDOM::Token')) { }