view release on metacpan or  search on metacpan

lib/Acme/CPANAuthors/Utils/CPANIndex.pm  view on Meta::CPAN

  my ($self, $file) = @_;

  my $handle;
  if ($file =~ /\.gz$/) {
    require IO::Uncompress::Gunzip;
    $handle = IO::Uncompress::Gunzip->new($file) or croak "Failed to read $file";
  }
  else {
    require IO::File;
    $handle = IO::File->new($file, 'r') or croak "Failed to read $file";
    binmode $handle;
  }
  $handle;
}

1;

__END__

=head1 NAME