The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# $URL: //local/member/autrijus/Parse-AFP/lib/Parse/AFP/PTD1.pm $ $Author: autrijus $
# $Rev: 1133 $ $Date: 2004-02-17T20:32:41.918436Z $

package Parse::AFP::PTD1;
use base 'Parse::AFP::Record';

use constant SUBFORMAT => (
    Data => 'a*',    # not yet parsed!
);

1;