NAME

Business::CompanyDesignator::Record - class for modelling individual Business::CompanyDesignator input 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-2015 Gavin Carr

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