File Coverage

blib/lib/Bio/Gonzales/Util/IO/Compressed.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	3	6	50.0
condition	1	2	50.0
subroutine	8	8	100.0
pod	0	2	0.0
total	44	50	88.0

package Bio::Gonzales::Util::IO::Compressed;

use warnings;
use strict;
use Carp;

use 5.010;
use Data::Dumper;

use Carp;

sub new {
  my $type = shift;
  my $class = ref($type) || $type || die "error in class creation: " . __PACKAGE__;
  @_ == 2 or croak "usage: new $class FH, PID";

  my ( $fh, $pid ) = @_;
  my $me = bless $fh, $class;

  die unless defined $pid;
  ${*$me}{'io_pipe_pid'} = $pid;

  $me;
}

sub close {
  my $fh = shift;
  my $r  = CORE::close($fh);

  waitpid( ${*$fh}{'io_pipe_pid'}, 0 )
    if ( defined ${*$fh}{'io_pipe_pid'} );

  $r;
}

1;