lib/IM/Engine/Plugin/Commands/Command/Cmdlist.pm


1
2
3
4
5
6
7
8
9
10
11

package IM::Engine::Plugin::Commands::Command::Cmdlist;
use IM::Engine::Plugin::Commands::OO;

sub init {
    my $self = shift;
    $self->is_active(0);
    return join ' ', map { $self->_ime_plugin->prefix . $_}
                         $self->_ime_plugin->command_list;
}

1;