File Coverage

blib/lib/File/Utils.pm

Criterion	Covered	Total	%
statement	18	36	50.0
branch	1	4	25.0
condition	0	2	0.0
subroutine	5	7	71.4
pod	3	3	100.0
total	27	52	51.9

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

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

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



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;
}


sub file2array {
  my ($filename, $sep) = @_;
  $sep ||= "\t";
  open my $file, "<", "$filename";
  my @out;
  while (my $line = <$file>) {
    chomp($line);
    my @cols = split $sep, $line;
    push @out, \@cols;
  }
  close($file);
  return @out;
}

1;

__END__