view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

    * Refactor and simplify regex assembly code.
    * Add Business::CompanyDesignator->record() and records() methods.
    * Add Business::CompanyDesignator::Record and unit tests.
    * Refactor split_designator, pulling out shared _split_designator_result.

0.01   2013-09-28

    * Allow optional trailing commas after periods, and escape () properly.
    * Change strip_designator to split_designator, handle capturing trailing content.
    * Update to allow random whitespace after periods in designators.
    * Add regexp variants without unicode diacritics to catch misspellings.
    * Add Unicode::Normalize magic to Business::CompanyDesignator.
    * Add install_share to Makefile.PL; make regex comparisons case-insensitive.
    * Rename designator_regex() to regex(); add test data to t/10_strip_designator.t.
    * Add pattern maps, workaround Regexp::Assemble quantifier bugs.
    * Initial import.

lib/Business/CompanyDesignator.pm  view on Meta::CPAN

          # Reset to undef to mark ambiguity
          $self->pattern_string_map_lang->{$l}->{ $pattern_string } = undef;
        }
      }
      else {
        $self->pattern_string_map_lang->{$l}->{ $pattern_string } = $reference_string;
      }
    }
  }

  # If $string contains unicode diacritics, also add a version without them for misspellings
  if ($string =~ m/\pM/) {
    my $stripped = $string;
    $stripped =~ s/\pM//g;
    $self->_add_to_assembler($assembler, $lang, $stripped, $reference_string);
  }
}

# Assemble designator regexes
sub _build_regex {
  my $self = shift;