Branch Coverage

blib/lib/App/Brl2Brl.pm
Criterion Covered Total %
branch 24 34 70.5


line true false branch
89 2 1 unless (exists $args->{'path'})
90 1 1 if (exists $ENV{'LOUIS_TABLEPATH'}) { }
137 2 2 unless open DIS, "<", $fileName
141 60 320 unless $line =~ /^display/i
143 1 319 if ($char =~ /\\s/)
146 256 64 if (length $char >= 4)
153 320 0 unless (defined $table{$char})
154 0 320 if ($dots =~ /^$/)
166 120 2 unless $dts == 1
169 1 1 if ($chr =~ /\x{2801}/) { }
187 1 0 unless $#_ == 0
192 0 4 if ($inC =~ /([\r\n\f])/)
196 0 4 unless (exists $from_tab{$inC})
198 0 0 if defined $warn and $warn != 0
205 4 252 if ($to_tab{$outkey} =~ /^$dots$/)
210 0 4 if ($outC =~ /^$/)
212 0 0 if defined $warn and $warn != 0