Branch Coverage

blib/lib/TM/Tied/Topic.pm
Criterion Covered Total %
branch 0 16 0.0


line true false branch
18 0 0 if ($key =~ /^__/) { }
0 0 elsif ($key eq '!') { }
0 0 elsif ($key eq '=') { }
0 0 elsif ($key eq '~') { }
0 0 elsif ($key =~ /<->\s*(.+)/) { }
0 0 elsif ($key =~ /^-(.*)_s$/ or $key =~ /\s*<-\s*(.*)_s$/) { }
0 0 elsif ($key =~ /^-(.*)$/ or $key =~ /\s*<-\s*(.*)$/) { }
0 0 elsif ($key =~ /^(.*)_s/) { }