old definitions replaced by more complete ones. Overlapping defs are sometimes the same, sometimes slightly different. Probably a guage of my ability to measure tiny distances. %{$self->{AVERY}} = ( '5267' => ['Letter', [qw/8167 8667/], 'return address', 80, undef, undef, undef, undef, undef, undef, ], '5160' => ['Letter', [qw/5160 8160 8250 8460 8560 8660/], 'address', 30, 9, 36, 189, 72, 11.5, 0, ], '5161' => ['Letter', [qw/8161/], 'address', 20, undef, undef, undef, undef, undef, undef, ], '5162' => ['Letter', [qw/8162 8252 8462 8662/], 'address', 14, undef, undef, undef, undef, undef, undef, ], '5163' => ['Letter', [qw/8163 8253 8463 8663/], 'shipping', 10, undef, undef, undef, undef, undef, undef, ], '5164' => ['Letter', [qw/8164 8254/], 'shipping', 6, undef, undef, undef, undef, undef, undef, ], '5165' => ['Letter', [qw/8165 8255 8665/], 'full sheet', 1, 0, 0, 612, 792, 0, 0, ], '5167' => ['Letter', [qw/8167 8257 8667/], 'full sheet', 80, 18, 36, 126, 18, 22.5, 0.36, ], '5266' => ['Letter', [qw/8066 8166 8366/], 'file folder', 30, undef, undef, undef, undef, undef, undef, ], '6490' => ['Letter', [qw/8096/], '3 1/2 inch diskette, non-wrap', 15, undef, undef, undef, undef, undef, undef, ], '5196' => ['Letter', [qw/8196/], '3 1/2 inch diskette, wrap', 9, 9, 36, 198, 216, 0, 0, ], '5395' => ['Letter', [qw/8395/], 'name badge', 8, undef, undef, undef, undef, undef, undef, ], );

NAME

PostScript::MailLabels::BasicData - Basic data that is used by the MailLabels module.

SYNOPSIS

        Loads up a few basic data items :

        Font metrics

        PS code for generating a calibration page

        PS code for generating a test page

        PS code for PostNET font

        Standard paper sizes

        Specs for Avery (tm) forms (incomplete)

DESCRIPTION

        All this does is initialize a bunch of data items. Not intended to be
        used by normal people. It just makes the MailLabel.pm code more
        compact. The documentation is probably not too complete.

        Note that the font metrics camne from PostScript::Metrics by Shawn Wallace.
        The PostNET barcode font came from James H. Cloos, Jr.

EXAMPLE

  require PostScript::MailLabels::BasicData;

  $data = new PostScript::MailLabels::BasicData;

        $code = '8460';
  @layout = @{$data{AVERY}{$code}};

 # layout=>[paper-size,[list of product codes], description,
 #          number per sheet, left-offset, top-offset, width, height]
 #                      distances measured in points

 $testpage = $data{TESTPAGE};

REVISION HISTORY

        Version 1.21 Tue Nov 29 20:55:38 CST 2005
        Added Avery 5526 labels per request of Wallace Winfrey
        Version 1.20 - August 2005
        Added patch from Jonathan Kamens
        Version 1.10 - August 2004
        Added 5167 Avery stock
        Version 1.02 - January 2001
        Fixed calibration axis labels to work for arbitrary paper size
        Added y_gap to Avery data
        Version 1.01 - December 2000
        Added pagesize parameter to handle paper other than Letter.
        Added more axis labels so that A4 calibration plot would work.

AUTHOR

    Alan Jackson
    October 1999
    alan@ajackson.org

SEE ALSO