Archive::Any::Create (3pm)

  use Archive::Any::Create;

  my $archive = Archive::Any::Create->new;

  $archive->container('foo');               # top-level directory
  $archive->add_file('bar.txt', $data);     # foo/bar.txt
  $archive->add_file('bar/baz.txt', $data); # foo/bar/baz.txt

  $archive->write_file('foo.tar.gz');
  $archive->write_file('foo.zip');

  $archive->write_filehandle(\*STDOUT, 'tar.gz');

Archive::Any::Create is a wrapper module to create tar/tar.gz/zip files with a single easy-to-use \s-1API\s0.

new

Create new Archive::Any::Create object. No parameters.

container($dir)

Specify a top-level directory (or folder) to contain multiple files. Not necessary but recommended to create a good-manner archive file. Add a file that contains $data as its content. $file can be a file in the nested subdirectory.

write_file($filename)

Write an archive file named $filename. This method is DWIMmy, in the sense that it automatically dispatches archiving module based on its filename. So, \*(C`$archive->write_file("foo.tar.gz")\*(C' will create a tarball and \*(C`$archive->write_file("foo.zip")\*(C' will create a zip file with the same contents. Write an archive data stream into filehandle. $format is either, tar, tar.gz or zip.

Tatsuhiko Miyagawa <[email protected]>

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

Archive::Any, Archive::Tar, Archive::Zip