Branch Coverage

blib/lib/Business/CompanyDesignator.pm
Criterion Covered Total %
branch 92 102 90.2


line true false branch
66 25 865 if (my $abbr = $entry->{'abbr_std'})
70 30 860 unless my $abbr_list = $entry->{'abbr'}
71 590 270 unless ref $abbr_list
98 1 1589 unless my $entry = $self->data->{$long}
106 0 1243 unless $designator
107 366 877 if (exists $self->data->{$designator}) { }
876 1 elsif (my $long_set = $self->abbr_long_map->{$designator}) { }
132 16 23018 /[()]/ ? :
1867 23034 / / ? :
1550 24901 /\./ ? :
148 84 1812 if ($pattern_string =~ /^(\w)(\w)$/) { }
107 1705 elsif ($pattern_string =~ /^(\w)$optional1e(\w)$optional1e$/) { }
156 429 1467 if (exists $self->pattern_string_map->{$pattern_string}) { }
7 1460 elsif ($alt_pattern_string1 and exists $self->pattern_string_map->{$alt_pattern_string1}) { }
158 3 426 if ($current and $current ne $reference_string)
166 7 0 if ($current and $current ne $reference_string)
175 638 1258 if ($lang)
177 202 564 if (exists $self->pattern_string_map_lang->{$l}{$pattern_string}) { }
179 0 202 if ($current and $current ne $reference_string)
191 217 1679 if ($string =~ /\pM/)
204 0 42 unless ($types->{$type})
213 36 6 if ($lang)
214 34 2 unless ref $lang
222 6028 1448 if $lang_re and not $entry->{'lang'} =~ /$lang_re/
224 484 964 if $type eq 'begin' and not $entry->{'lead'}
226 316 648 if $type eq 'end_cont' and not $LANG_CONTINUA{$entry->{'lang'}}
233 616 32 if (my $abbr_list = $entry->{'abbr'})
234 383 233 unless ref $abbr_list
244 12 30 if $count == 0
246 30 0 wantarray ? :
258 968 1785 if ($lang)
260 8 0 if (ref $lang and ref $lang eq 'ARRAY' and @$lang)
261 0 8 if (@$lang == 1) { }
271 968 1785 if $lang_key
273 2711 42 if (my $entry = $self->regex_cache->{$cache_key})
274 2711 0 wantarray ? :
279 42 0 wantarray ? :
290 988 91 if $before
293 819 260 if ($matched_pattern)
294 236 583 if $lang
296 799 20 if ($des_std)
304 845 607 defined $_ && !ref($_) ? :
363 716 if wantarray
308 567 149 $des_std ? :
332 4 0 eval {
340 484 595 if ($lang) { }
341 36 448 if ($LANG_CONTINUA{$lang}) { }
354 572 507 if ($end_re and $company_name_match =~ /^\s*(.*?)$punct_class\s*\(?($end_re)\)?\s*$/)
361 114 393 if ($end_cont_re and $company_name_match_cont_stripped =~ /^\s*(.*?)\(?($end_cont_re)\)?\s*$/)
367 91 302 if ($begin_re and $company_name_match =~ /^\s*\(?($begin_re)\)?$punct_class\s*(.*?)\s*$/)
373 42 18 if ($end_re and $allow_embedded and $company_name_match =~ /(.*?)$punct_class\s*\(?($end_re)\)?(?:\s+(.*?))?$/)