view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

} ## end sub merge

sub delay {
	my $d = shift;
	sleep $d if ($speed > 0);
}

sub slurp_file {
    my $file = shift;
    return (
        do { local (@ARGV, $/) = $file; <> }
    );
} ## end sub slurp_file

__END__