diff options
| author | Jesse Luehrs <doy@tozt.net> | 2009-10-31 14:34:55 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2009-10-31 14:34:55 -0500 |
| commit | 209209d52ed62d62ef477e4385c4021723efc105 (patch) | |
| tree | 22cf63614a2643601dc5633130fbf9adb6762320 | |
| parent | be02b657a4e0f95af9703fd895d2adc4ce65792f (diff) | |
| download | im-engine-plugin-commands-209209d52ed62d62ef477e4385c4021723efc105.tar.gz im-engine-plugin-commands-209209d52ed62d62ef477e4385c4021723efc105.zip | |
use handles instead of manual delegation
| -rw-r--r-- | lib/IM/Engine/Plugin/Commands/Command.pm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lib/IM/Engine/Plugin/Commands/Command.pm b/lib/IM/Engine/Plugin/Commands/Command.pm index 5b6b46d..88f2995 100644 --- a/lib/IM/Engine/Plugin/Commands/Command.pm +++ b/lib/IM/Engine/Plugin/Commands/Command.pm @@ -21,6 +21,7 @@ has _ime_plugin => ( isa => 'IM::Engine::Plugin', required => 1, weak_ref => 1, + handles => ['say'], ); sub default { @@ -42,11 +43,6 @@ command cmdlist => sub { return join ' ', sort map { '-' . $_ } @$list }; -sub say { - my $self = shift; - $self->_ime_plugin->say(@_); -} - __PACKAGE__->meta->make_immutable; no IM::Engine::Plugin::Commands::OO; |