view release on metacpan or  search on metacpan

lib/Archive/Lha/Decode.pm  view on Meta::CPAN

1;

__END__

=head1 NAME

Archive::Lha::Decode

=head1 SYNOPSIS

  # don't forget :raw, or eol might be converted implicitly
  open my $fh, '>:raw', $header->pathname;
  binmode $fh;
  $stream->seek( $header->data_top );
  my $decoder = Archive::Lha::Decode->new(
    header => $header,
    read   => sub { $stream->read(@_) },
    write  => sub { print $fh @_ },
  )
  my $crc16 = $decoder->decode;
  croak "crc mismatch" if $crc16 != $header->crc16;