The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Parse::AFP::PGD;
use base 'Parse::AFP::Record';

use constant SUBFORMAT => (
    XUnitBase		=> 'C',
    YUnitBase		=> 'C',
    XLUnitsperUnitBase	=> 'n',
    YLUnitsperUnitBase	=> 'n',
    Reserved1		=> 'C', # '00'
    XPageSize		=> 'n',
    Reserved2		=> 'C', # '00'
    YPageSize		=> 'n',
    _			=> 'a*',
);

1;