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 |