diff options
Diffstat (limited to 'Plugin')
| -rw-r--r-- | Plugin/Greet.pm | 4 | ||||
| -rw-r--r-- | Plugin/Hmm.pm | 1 | ||||
| -rw-r--r-- | Plugin/Natural.pm | 4 |
3 files changed, 7 insertions, 2 deletions
diff --git a/Plugin/Greet.pm b/Plugin/Greet.pm index c281558..d291682 100644 --- a/Plugin/Greet.pm +++ b/Plugin/Greet.pm @@ -1,5 +1,9 @@ package Plugin::Greet; +# FIXME add configurable messages +# FIXME add configurable chance of replying +# FIXME factor out `some` with other plugins + use strict; use warnings; diff --git a/Plugin/Hmm.pm b/Plugin/Hmm.pm index 5ceb66a..9c426b8 100644 --- a/Plugin/Hmm.pm +++ b/Plugin/Hmm.pm @@ -2,7 +2,6 @@ package Plugin::Hmm; use strict; use warnings; -use threads; my $root_config; my $config; diff --git a/Plugin/Natural.pm b/Plugin/Natural.pm index adc044c..56615e4 100644 --- a/Plugin/Natural.pm +++ b/Plugin/Natural.pm @@ -2,7 +2,6 @@ package Plugin::Natural; use strict; use warnings; -use threads; my $root_config; @@ -16,14 +15,17 @@ sub configure { return $self; } +# FIXME make configurable sub mention_odds { return int(rand(10)) < 9; } +# FIXME make configurable sub normal_odds { return int(rand(10)) < 6; } +# FIXME factor out with other modules sub some { my @choices = @_; return $choices[rand(@choices)]; |