blib/lib/Text/Tags/Parser.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 21 | 22 | 95.4 |
line | true | false | branch |
---|---|---|---|
15 | 1 | 54 | unless defined $string |
35 | 12 | 94 | unless length $tag |
42 | 88 | 6 | unless $seen{$tag}++ |
73 | 0 | 48 | unless length $tag |
77 | 6 | 42 | if ($tag =~ /"/ and $tag =~ /'/) { } |
6 | 36 | elsif ($tag =~ /"/) { } | |
4 | 32 | elsif ($tag =~ /'/) { } | |
17 | 15 | elsif ($tag =~ /[ ,]/ or $always_quote) { } | |
87 | 5 | 1 | if ($tag =~ / / or $tag =~ /,/ or $tag =~ /^"/ or $always_quote) { } |
96 | 3 | 1 | if ($tag =~ / / or $tag =~ /,/ or $tag =~ /^'/ or $always_quote) { } |
115 | 2 | 46 | if $seen{$tag}++ |