Branch Coverage

blib/lib/Data/PABX/ParseLex.pm
Criterion Covered Total %
branch 0 66 0.0


line true false branch
79 0 0 if (exists $arg{$arg_name}) { }
102 0 0 unless open INX, $file_name
116 0 0 if $line[$_] =~ /\??\s*lex a e/i
131 0 0 if not $_ or /^\?/
135 0 0 if (/^([A-Z]{2})(\d{4,5})\s/) { }
139 0 0 if $$self{'_service'}{$service_number}
164 0 0 if ($field[0] =~ /^([A-Z]{2})(\d{6})$/) { }
0 0 elsif ($field[0] =~ /^(BC|DI)(\d{4})$/) { }
188 0 0 if (/^(\*|\$)$/) { }
0 0 elsif (/^(A)(0\d)$/) { }
0 0 elsif ($_ eq 'ACD') { }
0 0 elsif ($_ eq 'AGENT') { }
0 0 elsif (/^(BE|BI|DG|HG|IE|KSGM?|MULT|RE|SPARE)$/) { }
0 0 elsif (/^(CS)(\d{2})$/) { }
0 0 elsif ($_ eq 'D') { }
0 0 elsif ($_ eq 'II') { }
0 0 elsif ($_ =~ /^(MLG)(\d+)$/) { }
0 0 elsif ($_ eq 'MOH') { }
0 0 elsif ($_ eq 'OG') { }
0 0 elsif ($_ eq 'RI') { }
0 0 elsif (/^(TA)(\d{2})$/) { }
0 0 elsif (/^(TP)(\d{2})$/) { }
0 0 elsif ($_ eq 'V') { }
0 0 elsif (/^\d+$/) { }
198 0 0 if (@field and $field[0] eq 'QUEUE') { }
209 0 0 if (@field and $field[0] eq 'GROUP') { }
228 0 0 if (@field and $field[0] =~ /^00(1|2)$/) { }
239 0 0 if (@field and $field[0] =~ /^\d+$/) { }
254 0 0 if (@field and $field[0] =~ /^000$/) { }
265 0 0 if (@field and $field[0] =~ /^\d+$/) { }
276 0 0 if (@field and $field[0] =~ /^\d+$/) { }
295 0 0 if (@field and $field[0] =~ /^00(1|2)$/) { }
306 0 0 if ($$self{'_service'}{$service_number}{'#'}) { }