CPAN::Packager::FileUtil - File Utility class

  use CPAN::Packager::FileUtil;

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__