NAME

Business::CompanyDesignator::Record - class for modelling individual Business::CompanyDesignator records

SYNOPSIS

  # Typically instantiated via Business::CompanyDesignator->record() or records()
  use Business::CompanyDesignator;
  
  $bcd = Business::CompanyDesignator->new;
  $record = $bcd->record("Limited");
  @records = $bcd->records("Inc.");

  # Accessors
  $long = $record->long;
  @abbr = $record->abbr;
  $abbr1 = $record->abbr1;
  $lang = $record->lang;

METHODS

new()

Create a new Business::CompanyDesignator::Record object.

Note: objects are normally instantiated via Business::CompanyDesignator->record() or records(), however:

  use Business::CompanyDesignator;
    
  $bcd = Business::CompanyDesignator->new;
  $record = $bcd->record("Limited");
  @records = $bcd->records("Inc.");

long()

Returns the record's long designator (a string).

  $long = $record->long;

abbr()

Returns a list of the abbreviations associated with this record (if any).

  @abbr = $record->abbr;

abbr1()

Returns the first abbreviation associated with this record (a string, if any).

  $abbr1 = $record->abbr1;

lang()

Returns the ISO-639 language code associated with this record (a string).

  $lang = $record->lang;

AUTHOR

Gavin Carr <gavin@profound.net>

COPYRIGHT AND LICENCE

Copyright (C) 2013 Gavin Carr and Profound Networks.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.