Branch Coverage

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}++