File Coverage

blib/lib/IO/File/CompressOnClose/Gzip.pm

Criterion	Covered	Total	%
statement	31	35	88.5
branch	5	10	50.0
condition			n/a
subroutine	8	8	100.0
pod	1	1	100.0
total	45	54	83.3

#
# $Id: Gzip.pm,v 1.2 2003/12/28 00:15:15 james Exp $
#

=head1 NAME

IO::File::CompressOnClose::Gzip - Gzip compression for
IO::File::CompressOnClose

=head1 SYNOPSIS

 use IO::File::AutoCompress::Gzip;
 my $file = IO::File::CompressOnClose::Gzip->new('>foo');
 print $file "foo bar baz\n";
 $file->close;  # file will be compressed to foo.gz

=cut

package IO::File::CompressOnClose::Gzip;

use strict;
use warnings;

use vars        qw|$VERSION @ISA|;

@ISA          = qw|IO::File::CompressOnClose|;
$VERSION      = $IO::File::CompressOnClose::VERSION;

use Carp        qw|croak|;
use IO::File;
use IO::File::CompressOnClose;
use IO::Zlib;


# compress using gzip
sub compress
{

    my($self, $src_file, $dst_file) = @_;

    # tack on a .gz extension
    unless( $dst_file ) {
        $dst_file = "$src_file.gz";
    }

    # compress the file
    my($in,$out);
    unless( $in = IO::File->new($src_file, 'r') ) {
        croak("cannot open $src_file for read: $!");
    }
    unless( $out = IO::Zlib->new($dst_file, 'w') ) {
        croak("cannot open $dst_file for write: $!");
    }

    while( <$in> ) {
        print $out $_;
    }

    # close both files
    unless( $in->close ) {
        croak("cannot close $src_file after read: $!");
    }
    unless( $out->close ) {
        croak("cannot close $dst_file after write: $!");
    }

}

# keep require happy
1;


__END__