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 the Archive::Lha::Header::Base manpage 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.