view release on metacpan or  search on metacpan

devel/bin/smoke.pl  view on Meta::CPAN

use Carp;
use FindBin;
use Sys::Hostname;
use File::Spec::Functions qw( catdir canonpath );
use Net::SMTP;

my $config = {
    src           => canonpath( catdir( $FindBin::Bin, '../../' ) ),
    verbose       => 0,
    email_to      => undef,
    email_from    => getpwuid($<) . '@' . hostname(),
    email_subject => 'Lucy Smoke Test Report ' . localtime(),
    mailhost      => 'localhost',
    test_target => 'test',    # could also be 'test_valgrind' if on Linux
};

if (@ARGV) {
    my $config_file = shift @ARGV;
    open( my $fh, '<', $config_file ) or die "Can't open '$config_file': $!";
    while ( defined( my $line = <$fh> ) ) {
        $line =~ s/#.*//;