The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Meta::Tool::Gzip - call gzip for you.

COPYRIGHT

Copyright (C) 2001 Mark Veltzer; All rights reserved.

LICENSE

This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.

DETAILS

MANIFEST: Gzip.pm PROJECT: meta

SYNOPSIS

package foo; use Meta::Tool::Gzip qw(); my($object)=Meta::Tool::Gzip-new();> my($result)=$object-method();>

DESCRIPTION

This class hides the complexity of calling gzip from you. Currently the implementation calls the command line gzip to do the work but more advanced implementations will call a module to do it.

EXPORTS

c2gzxx($)

FUNCTION DOCUMENTATION

c2gzz($)

This method gets a source file and compresses it into the target. The method returns a success code. We use the system_shell_nodie function here with the shell as a mediator because gzip doesnt have a -o flag.

BUGS

None.

AUTHOR

Mark Veltzer <mark2776@yahoo.com>

HISTORY

None.

SEE ALSO

Nothing.

TODO

-stop using the shell in the gzip execution (waste of resources).

-start using a real compression module (much cheaper in resources).