diff options
Diffstat (limited to 'lib/Reply/Plugin.pm')
| -rw-r--r-- | lib/Reply/Plugin.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lib/Reply/Plugin.pm b/lib/Reply/Plugin.pm index ed3efbb..f17b135 100644 --- a/lib/Reply/Plugin.pm +++ b/lib/Reply/Plugin.pm @@ -3,6 +3,8 @@ use strict; use warnings; # ABSTRACT: base class for Reply plugins +use Reply::Util 'methods'; + =head1 SYNOPSIS package Reply::Plugin::Foo; @@ -183,6 +185,12 @@ sub publish { $self->{publisher}->(@_); } +sub commands { + my $self = shift; + + return map { s/^command_//; $_ } grep { /^command_/ } methods($self); +} + =for Pod::Coverage new |