
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:
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.
(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.