lib/Bot/Games/OO.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

package Bot::Games::OO;
use IM::Engine::Plugin::Commands::OO ();
use Moose::Exporter;

Moose::Exporter->build_import_methods(
    install => [qw(import unimport)],
    also    => ['IM::Engine::Plugin::Commands::OO'],
);

sub init_meta {
    my ($package, %options) = @_;
    $options{base_class} = 'Bot::Games::Game'
        if !exists $options{base_class}
        && $options{for_class} ne 'Bot::Games::Game';
    IM::Engine::Plugin::Commands::OO->init_meta(%options);
    # no init_meta is generated, since no metarole options were specified
    return Class::MOP::class_of($options{for_class});
}

1;