NAME

Archive::Any - Single interface to deal with file archives.

SYNOPSIS

use Archive::Any;

my $archive = Archive::Any->new($archive_file);

my @files = $archive->files;

$archive->extract;

my $type = $archive->type;

$archive->is_impolite;
$archive->is_naughty;

DESCRIPTION

This module is a single interface for manipulating different archive formats. Tarballs, zip files, etc.

new
my $archive = Archive::Any->new($archive_file);
my $archive = Archive::Any->new($archive_file, $type);

$type is optional. It lets you force the file type in-case Archive::Any can't figure it out.

extract
$archive->extract;
$archive->extract($directory);

Extracts the files in the archive to the given $directory. If no $directory is given, it will go into the current working directory.

files
my @file = $archive->files;

A list of files in the archive.

type
my $type = $archive->type;

Returns the type of archive this is.

is_impolite
my $is_impolite = $archive->is_impolite;

Checks to see if this archive is going to unpack into the current directory rather than create its own.

is_naughty
my $is_naughty = $archive->is_naughty;

Checks to see if this archive is going to unpack outside the current directory.

PLUGINS

For detailed information on writing plugins to work with Archive::Any, please see the pod documentation for Archive::Any::Plugin.

AUTHOR

Clint Moore <cmoore@cpan.org>

AUTHOR EMERITUS

Michael G Schwern

BUGS

Please report any bugs or feature requests to bug-test-thingy at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Archive-Any. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

perldoc Archive::Any

You can also look for information at:

DEDICATION

This release is dedicated to T-Bone (Tom Stankus) for his work on the song "Exostential Blues".

http://lyricsplayground.com/alpha/songs/e/existentialblues.shtml

LICENSE

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

See http://www.perl.com/perl/misc/Artistic.html