The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Geo::TigerLine::Record::4 - TIGER/Line 1998 Index to Alternative Feature Identifiers

SYNOPSIS

  use Geo::TigerLine::Record::4;

  @records = Geo::TigerLine::Record::4->parse_file($fh);
  @records = Geo::TigerLine::Record::4->parse_file($fh, \&callback);

  $record = Geo::TigerLine::Record::4->new(\%fields);

  $record->rt();
  $record->version();
  $record->tlid();
  $record->rtsq();
  $record->feat1();
  $record->feat2();
  $record->feat3();
  $record->feat4();
  $record->feat5();

DESCRIPTION

This is a class representing record type 4 of the TIGER/Line 1998 census geographic database. Each object is one record. It also contains methods to parse TIGER/Line record type 4 files and turn them into objects.

This is intended as an intermediate format between pulling the raw data out of the simplistic TIGER/Line data files into something more sophisticated (a process you should only have to do once). As such, its not very fast, but its careful, easy to use and performs some verifications on the data being read.

As this class is autogenerated by mk_parsers, think before you modify this file. Its OO, so consider sub-classing instead.

Accessors

These are simple get/set accessors for each field of a record generated from the TIGER/Line 1998 data dictionary. They perform some data validation.

rt
    $data = $record->rt();
    $record->rt($data);

Record Type.

Expects alphanumeric data of no more than 1 characters. $data cannot be blank and should be left justified.

version
    $data = $record->version();
    $record->version($data);

Version Number.

Expects numeric data of no more than 4 characters. $data cannot be blank and should be left justified.

tlid
    $data = $record->tlid();
    $record->tlid($data);

TIGER/Line ID, Permanent Record Number.

Expects numeric data of no more than 10 characters. $data cannot be blank and should be right justified.

rtsq
    $data = $record->rtsq();
    $record->rtsq($data);

Record Sequence Number.

Expects numeric data of no more than 3 characters. $data cannot be blank and should be right justified.

feat1
    $data = $record->feat1();
    $record->feat1($data);

Line Additional Name Identification Number, First.

Expects numeric data of no more than 8 characters. $data cannot be blank and should be right justified.

feat2
    $data = $record->feat2();
    $record->feat2($data);

Line Additional Name Identification Number, Second.

Expects numeric data of no more than 8 characters. $data can be blank and should be right justified.

feat3
    $data = $record->feat3();
    $record->feat3($data);

Line Additional Name Identification Number, Third.

Expects numeric data of no more than 8 characters. $data can be blank and should be right justified.

feat4
    $data = $record->feat4();
    $record->feat4($data);

Line Additional Name Identification Number, Fourth.

Expects numeric data of no more than 8 characters. $data can be blank and should be right justified.

feat5
    $data = $record->feat5();
    $record->feat5($data);

Line Additional Name Identification Number, Fifth.

Expects numeric data of no more than 8 characters. $data can be blank and should be right justified.

Data dictionary

This is the original TIGER/Line 1998 data dictionary from which this class was generated.

    Record Type 4 - Index to Alternative Feature Identifiers
    
         Field   BV  Fmt  Type  Beg  End  Len  Description
            RT   No    L     A    1    1    1  Record Type
       VERSION   No    L     N    2    5    4  Version Number
          TLID   No    R     N    6   15   10  TIGER/Line ID, Permanent Record Number
          RTSQ   No    R     N   16   18    3  Record Sequence Number
         FEAT1   No    R     N   19   26    8  Line Additional Name Identification Number, First
         FEAT2  Yes    R     N   27   34    8  Line Additional Name Identification Number, Second
         FEAT3  Yes    R     N   35   42    8  Line Additional Name Identification Number, Third
         FEAT4  Yes    R     N   43   50    8  Line Additional Name Identification Number, Fourth
         FEAT5  Yes    R     N   51   58    8  Line Additional Name Identification Number, Fifth
    
    
    

AUTHOR

Michael G Schwern <schwern@pobox.com>

SEE ALSO

Geo::TigerLine, mk_parsers