package Config::IniFiles::Slurp;
use strict;
use warnings;
use File::Spec;
use base 'Exporter';
use vars (qw(@EXPORT_OK));
@EXPORT_OK = (qw( bin_slurp slurp ));
=head2 slurp()
Reads the entire file.
=cut
sub slurp
{
my $filename = shift;
open my $in, '<', $filename
or die "Cannot open '$filename' for slurping - $!";
local $/;
my $contents = <$in>;
close($in);
return $contents;
}
=head2 slurp()
Reads the entire file with binmode
=cut
sub bin_slurp
{
my $filename = shift;
open my $in, '<', $filename
or die "Cannot open '$filename' for slurping - $!";
binmode $in;
local $/;
my $contents = <$in>;
close($in);
return $contents;
}
1;