BBS-Universal

 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__



( run in 1.176 second using v1.01-cache-2.11-cpan-98e64b0badf )