NAME

Archive::Extract::Libarchive - A generic archive extracting mechanism (using libarchive)

SYNOPSIS

  use Archive::Extract::Libarchive;

  # build an Archive::Extract object
  my $ae = Archive::Extract::Libarchive->new( archive => 'foo.tgz' );

  # extract to cwd()
  my $ok = $ae->extract;

  # extract to /tmp
  my $ok = $ae->extract( to => '/tmp' );

  # what if something went wrong?
  my $ok = $ae->extract or die $ae->error;
    
  # files from the archive
  my $files   = $ae->files;

  # dir that was extracted to
  my $outdir  = $ae->extract_path;
    
  # absolute path to the archive you provided
  $ae->archive;

DESCRIPTION

Archive::Extract is a generic archive extraction mechanism. This module has a similar interface to Archive::Extract, but instead of using Perl modules and external commands, it uses the libarchive C libary (<http://code.google.com/p/libarchive/>), which you must have installed (libarchive-dev package for Debian/Ubuntu). It supports many different archive formats and compression algorithms and is fast.

For example, unpacking the whole of CPAN using this module is about ten times faster than using Archive::Extract.

METHODS

$ae = Archive::Extract::Libarchive->new(archive => '/path/to/archive')

Creates a new "Archive::Extract::Libarchive" object based on the archive file you passed it.

$ae->extract( [to => '/output/path'] )

Extracts the archive represented by the "Archive::Extract::Libarchive" object to the path of your choice as specified by the "to" argument. Defaults to "cwd()".

It will return true on success, and false on failure.

On success, it will also set the follow attributes in the object:

$ae->extract_path

This is the directory that the files where extracted to.

$ae->files

This is an array ref with the paths of all the files in the archive, relative to the "to" argument you specified. To get the full path to an extracted file, you would use:

  File::Spec->catfile( $to, $ae->files->[0] );

ACCESSORS

AUTHOR

Leon Brocard <acme@astray.com>

COPYRIGHT

LICENSE

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