File Coverage

blib/lib/Banal/Utils/File.pm

Criterion	Covered	Total	%
statement	3	7	42.8
branch	0	2	0.0
condition			n/a
subroutine	1	2	50.0
pod	1	1	100.0
total	5	12	41.6

#===============================================
package Banal::Utils::File;

use utf8;
require Exporter;

@ISA = qw(Exporter);
@EXPORT_OK = qw(slurp_file);



##############################################################################"
# Utility functions
##############################################################################"

#------------------------------------------------------------
# Slurps an entire file into memory and returns the resulting string
#-------------------------------------------------------------
sub slurp_file {
	my $file	= shift;

	local( $/ ) ;
    open( my $fh, $file ) or die __PACKAGE__ . " : slurp_file : Can't open file $file\n";
    return <$fh>;
}


1;


__END__