File Coverage

blib/lib/File/Utils.pm

Criterion	Covered	Total	%
statement	18	26	69.2
branch	1	4	25.0
condition			n/a
subroutine	5	6	83.3
pod	2	2	100.0
total	26	38	68.4

package File::Utils;
use Modern::Perl;
use Carp;
use PerlIO::gzip;
use Exporter;

our $VERSION = '0.0.4'; # VERSION
# ABSTRACT: Provide various of file operation

our @ISA = ('Exporter');
our @EXPORT = ();
our @EXPORT_OK = qw/read_handle write_handle/;
our %EXPORT_TAGS = (
  gz    => [qw/read_handle write_handle/]
);



sub read_handle {
  my $file = shift;
  my $handle;
  if ($file =~/\.gz$/) {
    open $handle, "<:gzip", $file;
  } else {
    open $handle, "<", $file;
  }
  $handle->autoflush;
  return $handle;
}


sub write_handle {
  my $file = shift;
  my $handle;
  if ($file =~/\.gz$/) {
    open $handle, ">:gzip", $file;
  } else {
    open $handle, ">", $file;
  }
  $handle->autoflush;
  return $handle;
}

1;

__END__