ext/Compress/IO/Zlib/lib/IO/Compress/Zip/Constants.pm

   1 package IO::Compress::Zip::Constants;
   2
   3 use strict ;
   4 use warnings;
   5
   6 require Exporter;
   7
   8 our ($VERSION, @ISA, @EXPORT, %ZIP_CM_MIN_VERSIONS);
   9
  10 $VERSION = '2.000_12';
  11
  12 @ISA = qw(Exporter);
  13
  14 @EXPORT= qw(
  15
  16     ZIP_CM_STORE
  17     ZIP_CM_DEFLATE
  18     ZIP_CM_BZIP2
  19
  20     ZIP_LOCAL_HDR_SIG
  21     ZIP_DATA_HDR_SIG
  22     ZIP_CENTRAL_HDR_SIG
  23     ZIP_END_CENTRAL_HDR_SIG
  24
  25     ZIP_GP_FLAG_STREAMING_MASK
  26
  27     ZIP_EXTRA_ID_EXT_TIMESTAMP
  28     ZIP_EXTRA_ID_INFO_ZIP_UNIX
  29
  30     ZIP_IFA_TEXT_MASK
  31
  32     %ZIP_CM_MIN_VERSIONS
  33
  34     );
  35
  36 # Compression types supported
  37 use constant ZIP_CM_STORE                      => 0 ;
  38 use constant ZIP_CM_DEFLATE                    => 8 ;
  39 use constant ZIP_CM_BZIP2                      => 12 ;
  40
  41 # General Purpose Flag
  42 use constant ZIP_GP_FLAG_ENCRYPTED_MASK        => 1 ;
  43 use constant ZIP_GP_FLAG_STREAMING_MASK        => 8 ;
  44
  45 # Internal File Attributes
  46 use constant ZIP_IFA_TEXT_MASK                 => 1;
  47
  48 # Signatures for each of the headers
  49 use constant ZIP_LOCAL_HDR_SIG                 => 0x04034b50;
  50 use constant ZIP_DATA_HDR_SIG                  => 0x08074b50;
  51 use constant ZIP_CENTRAL_HDR_SIG               => 0x02014b50;
  52 use constant ZIP_END_CENTRAL_HDR_SIG           => 0x06054b50;
  53
  54 # Extra Field ID's
  55 use constant ZIP_EXTRA_ID_EXT_TIMESTAMP        => "UT";
  56 use constant ZIP_EXTRA_ID_INFO_ZIP_UNIX        => "Ux";
  57
  58 %ZIP_CM_MIN_VERSIONS = (
  59             ZIP_CM_STORE()                      => 20,
  60             ZIP_CM_DEFLATE()                    => 20,
  61             ZIP_CM_BZIP2()                      => 46,
  62             );
  63
  64
  65 1;
  66
  67 __END__
  68