package Utils;
@ISA = qw(Exporter);
@EXPORT = qw(slurp spew cmp);
sub slurp {
my $path = shift;
open IN, "<$path"; my $data = join('',<IN>); close IN; $data;
}
sub spew {
my ($path, $data) = @_;
open OUT, ">$path"; print OUT $data; close OUT;
}
sub cmp {
my ($a, $b) = @_;
$a =~ s/\r//g;
$b =~ s/\r//g;
return ($a eq $b);
}
1;