NAME

%s::Record::%s - TIGER/Line %d %s

POD

# SYNOPSIS printf <<'POD', $Class, $RT_Num, $Class, $RT_Num, $Class, $RT_Num, $Class, $RT_Num; =head1 SYNOPSIS

use %s::Record::%s;

@records = %s::Record::%s->parse_file($fh);
@records = %s::Record::%s->parse_file($fh, \&callback);

$record = %s::Record::%s->new(\%%fields);

POD

# Accessor SYNOPSIS foreach my $field (@RT_Dict{@RT_Fields}) { printf <<'POD', $field->{field}; $record->%s(); POD }

# DESCRIPTION printf <<'POD', $RT_Num, $Year, $RT_Num, $This_Prog;

DESCRIPTION

This is a class representing record type %s of the TIGER/Line %d census geographic database. Each object is one record. It also contains methods to parse TIGER/Line record type %s 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, it's not very fast, but its careful, easy to use and performs some verifications on the data being read.

As this class is autogenerated by %s, think before you modify this file. It's OO, so consider sub-classing instead.

POD

# Accessor doc header. printf <<'POD', $Year; =head2 Accessors

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

POD

# Individual accessor docs. my $accessor_POD = <<'POD'; =item %s

$data = $record->%s();
$record->%s($data);

%s.

Expects %s data of no more than %d characters. $data %s be blank and should be %s justified.

POD

#'# foreach my $field (@RT_Dict{@RT_Fields}) { my $name = $field->{field}; my $type = $field->{type} eq 'A' ? 'alphanumeric' : 'numeric'; my $can_blank = $field->{bv} eq 'Yes' ? 'can' : 'cannot'; my $justification = $field->{fmt} eq 'R' ? 'right' : 'left';

printf $accessor_POD, $name, $name, $name, 
                      $field->{description}, $type, $field->{len},
                      $can_blank, $justification;
}

printf <<'POD';

POD

# Data dictionary docs printf <<'POD', $Year, join '', map { " $_" } @Data_Dict; =head2 Data dictionary

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

%s

POD

# POD footer printf <<'POD', $Class, $This_Prog; =head1 AUTHOR

Michael G Schwern <schwern@pobox.com>

SEE ALSO

%s, %s