#!/usr/bin/perl -w
use strict;
use lib qw(lib);
use CPAN::YACSmoke;
my %conf = (
list_from => 'SmokeDB', # use SmokeDB plugin
# list_from => 'Recent', # use Recent plugin
# list_from => 'Outlook', # use Outlook plugin
# mailbox => 'CPAN Testers',
# list_from => 'NNTP', # use NNTP plugin
# list_from => 'NNTPWeb', # use NNTPWeb plugin
# nntp_id => '180500',
# list_from => 'WebList', # use WebList plugin
audit_log => 'audit.log',
config_file => 'cpansmoke.ini',
);
my @list = qw(
);
my $smoker = CPAN::YACSmoke->new(%conf);
$smoker->mark();
#$smoker->mark("$_") for(@list);
#$smoker->mark("$_",'none') for(@list);
#$smoker->excluded();