package Parse::AFP::EPT; use base 'Parse::AFP::Record'; use constant SUBFORMAT => ( Data => 'a*', # XXX - not parsed yet ); 1;