Branch Coverage

blib/lib/Language/Basic/Token.pm
Criterion Covered Total %
branch 26 28 92.8


line true false branch
87 159 892 if $$textref =~ /^\s*$/
103 892 4049 if ($$textref =~ s/^(\s*)($regex)//)
107 854 38 unless $c eq 'String_Constant'
113 0 892 unless defined $class
189 666 2886 unless @{$$self{'tokens'};}
203 0 972 unless @{$$self{'tokens'};}
225 37 571 unless defined $tok
230 138 433 if $matched
231 138 433 $matched ? :
247 333 1649 unless defined $tok
252 568 1081 if $matched
253 568 1081 $matched ? :
267 8 80 if $tok->text eq $string
283 276 92 unless defined $tok