File Coverage

blib/lib/CPAN/Packager/FileUtil.pm

Criterion	Covered	Total	%
statement	15	32	46.8
branch	0	10	0.0
condition			n/a
subroutine	5	10	50.0
pod	0	5	0.0
total	20	57	35.0

package CPAN::Packager::FileUtil;
use strict;
use warnings;
use base qw(Exporter);
use File::Spec;
use IO::File ();

our @EXPORT = qw(file dir openw slurp openr);

sub file {
    File::Spec->catfile(@_);
}

sub dir {
    File::Spec->catfile(@_);
}

sub openw {
    my $file = shift;
    my $io = IO::File->new;
    $io->open($file, 'w') or die "Can't write $file: $!";
    return $io;
}

sub openr {
    my $file = shift;
    my $io = IO::File->new;
    $io->open($file, 'r') or die "Can't read $file: $!";
    return $io;
}


sub slurp {
  my ($file, $args) = @_;
  my $fh = openr($file);
    if ($args->{chomp}) {
    chomp( my @data = <$fh> );
    return wantarray ? @data : join '', @data;
  }

  local $/ unless wantarray;
  return <$fh>;
}

1;
__END__