NAME

Net::SFTP::Foreign::Tempdir::Extract::File - Path::Class::File with an extract method

SYNOPSIS

  use Net::SFTP::Foreign::Tempdir::Extract;
  my $sftp=Net::SFTP::Foreign::Tempdir::Extract->new(user=>$user, match=>qr/\.zip\Z/);
  my $file=$sftp->next; # isa Net::SFTP::Foreign::Tempdir::Extract::File

DESCRIPTION

Net::SFTP::Foreign::Tempdir::Extract::File is a convince wrapper around Path::Class, Archive::Zip and File::Tempdir

USAGE

  my $archive = Net::SFTP::Foreign::Tempdir::Extract::File->new( $path, $filename );
  my @files = $archive->extract; #array of Net::SFTP::Foreign::Tempdir::Extract::File files

extract

Extracts Zip files to temporary directory

  my @files = $archive->extract; #array of Net::SFTP::Foreign::Tempdir::Extract::File files
  my $files = $archive->extract; #array reference of Net::SFTP::Foreign::Tempdir::Extract::File files

Note: The file is temporary and will be cleaned up when the variable goes out of scope.

TODO

Support other archive formats besides zip

BUGS

Send email to author and log on RT.

SUPPORT

DavisNetworks.com supports all Perl applications including this package.

AUTHOR

  Michael R. Davis
  CPAN ID: MRDVT
  Satellite Tracking of People, LLC
  mdavis@stopllc.com
  http://www.stopllc.com/

COPYRIGHT

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

The full text of the license can be found in the LICENSE file included with this module.

SEE ALSO

File::Tempdir, Archive::Zip