Archive::Lha::Header

  while ( defined ( my $level = $stream->search_header ) ) {
    my $header = Archive::Lha::Header->new(
      level  => $level,
      stream => $stream
    );
    $stream->seek( $header->next_header );
  }

This is a factory class to create a proper header object. Each ::Header subclass has several public methods and several minor private properties. See Archive::Lha::Header::Base for details.

takes a hash as an argument and returns a delegated header object. Required options are:

level

LHa header level (0 to 2). Actually Level 3 header is proposed but I don't think there's substantial implementation that supports it while creating archives.

stream

(a subclass of) Archive::Lha::Stream object.

Kenichi Ishigaki, <ishigaki@cpan.org>

Copyright (C) 2007 by Kenichi Ishigaki.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.