Business-CompanyDesignator

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

    - share
    - t
requires:
  File::ShareDir: 0
  FindBin: 0
  List::MoreUtils: 0
  Moose: 0
  Regexp::Assemble: 0
  Unicode::Normalize: 0
  YAML: 0.71
  namespace::autoclean: 0
  perl: 5.10.1
resources:
  homepage: https://github.com/gavincarr/Business-CompanyDesignator
  license: http://dev.perl.org/licenses/
  repository: https://github.com/gavincarr/Business-CompanyDesignator
version: '0.17'

Makefile.PL  view on Meta::CPAN

all_from      'lib/Business/CompanyDesignator.pm';
license       'perl';
perl_version  '5.010001';
homepage      'https://github.com/gavincarr/Business-CompanyDesignator';
repository    'https://github.com/gavincarr/Business-CompanyDesignator';

requires      'File::ShareDir';
requires      'FindBin';
requires      'List::MoreUtils';
requires      'Moose';
requires      'namespace::autoclean';
requires      'Regexp::Assemble';
requires      'Unicode::Normalize';
requires      'YAML' => 0.71;

test_requires 'Data::Dump';
test_requires 'Encode';
test_requires 'File::HomeDir';
test_requires 'Test::More' => 0.88;
test_requires 'Test::Files';
test_requires 'Test::Exception';

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

package Business::CompanyDesignator::Record;

use Moose;
use utf8;
use warnings qw(FATAL utf8);
use Carp;
use namespace::autoclean;

has 'long'                  => ( is => 'ro', isa => 'Str', required => 1 );
has 'record'                => ( is => 'ro', isa => 'HashRef', required => 1 );

has [qw(abbr1 lang)]        => ( is => 'ro', lazy_build => 1 );
has 'abbr'                  => ( is => 'ro', isa => 'ArrayRef[Str]', lazy => 1, builder => '_build_abbr',
                                 reader => '_abbr', traits => [ qw(Array) ], handles => { abbr => 'elements' } );

sub _build_abbr {
  my $self = shift;

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

package Business::CompanyDesignator::SplitResult;

use Moose;
use utf8;
use warnings qw(FATAL utf8);
use Carp;
use namespace::autoclean;

has [ qw(before after designator designator_std) ] =>
  ( is => 'ro', isa => 'Str', required => 1 );
has 'records' => ( is => 'ro', isa => 'ArrayRef', required => 1 );

sub short_name {
  my $self = shift;
  return $self->before || $self->after // '';
}

 view all matches for this distribution
 view release on metacpan -  search on metacpan