modern perl

This commit is contained in:
Al Beano 2016-07-04 20:32:07 +01:00
parent 37c817f70e
commit cf9ec8b9b4
5 changed files with 15 additions and 0 deletions

View File

@ -1,5 +1,8 @@
package MarkovBot::Commands; package MarkovBot::Commands;
use base qw(Exporter); use base qw(Exporter);
use 5.010;
use strict;
use warnings;
our @EXPORT = qw(getCommandSubs); our @EXPORT = qw(getCommandSubs);

View File

@ -1,5 +1,8 @@
package MarkovBot::Config; package MarkovBot::Config;
use base qw(Exporter); use base qw(Exporter);
use 5.010;
use strict;
use warnings;
our @EXPORT = qw(config); our @EXPORT = qw(config);

View File

@ -1,5 +1,8 @@
package MarkovBot::Ignore; package MarkovBot::Ignore;
use base qw(Exporter); use base qw(Exporter);
use 5.010;
use strict;
use warnings;
our @EXPORT = qw(ignore unignore isIgnored); our @EXPORT = qw(ignore unignore isIgnored);

View File

@ -1,5 +1,8 @@
package MarkovBot::Learning; package MarkovBot::Learning;
use base qw(Exporter); use base qw(Exporter);
use 5.010;
use strict;
use warnings;
our @EXPORT = qw(learn); our @EXPORT = qw(learn);

View File

@ -1,5 +1,8 @@
package MarkovBot::Redis; package MarkovBot::Redis;
use base qw(Exporter); use base qw(Exporter);
use 5.010;
use strict;
use warnings;
our @EXPORT = qw(redis); our @EXPORT = qw(redis);