package IM::Engine::Plugin::Commands::OO;
use Moose ();
use Moose::Exporter;
use Scalar::Util qw(blessed reftype);

sub command {
    my $caller = shift;
    my $name = shift;
    my $code;
    $code = shift if defined(reftype($_[0])) && reftype($_[0]) eq 'CODE';
    my %args = @_;

    my $method_meta = $caller->meta->get_method($name);
    my $superclass = blessed($method_meta)
                  || $caller->meta->method_metaclass;
    my @method_metaclass_roles = ('IM::Engine::Plugin::Commands::Trait::Method::Command');
    push @method_metaclass_roles, 'IM::Engine::Plugin::Commands::Trait::Method::Formatted'
        if $args{formatter};
    my $method_metaclass = Moose::Meta::Class->create_anon_class(
        superclasses => [$superclass],
        roles        => \@method_metaclass_roles,
        cache        => 1,
    );
    if ($method_meta) {
        $method_metaclass->rebless_instance($method_meta);
    }
    else {
        $method_meta = $method_metaclass->name->wrap(
            $code,
            package_name => $caller,
            name         => $name,
        );
        $caller->meta->add_method($name, $method_meta);
    }
    for my $attr (map { $_->meta->get_attribute_list } @method_metaclass_roles) {
        next unless exists $args{$attr};
        my $value = $args{$attr};
        # XXX: shouldn't this just be a coercion?
        my $munge_method = "_munge_$attr";
        $value = $method_meta->$munge_method($value)
            if $method_meta->can($munge_method);
        $method_meta->$attr($value);
    }
}

my ($import, $unimport, $init_meta) = Moose::Exporter->build_import_methods(
    with_caller => ['command'],
    also        => ['Moose'],
    install     => [qw(import unimport)],
    attribute_metaclass_roles =>
        ['IM::Engine::Plugin::Commands::Trait::Attribute::Command',
         'IM::Engine::Plugin::Commands::Trait::Attribute::Formatted'],
    metaclass_roles =>
        ['IM::Engine::Plugin::Commands::Trait::Class::Command',
         'IM::Engine::Plugin::Commands::Trait::Class::Formatted'],
);

sub init_meta {
    my ($package, %options) = @_;
    Moose->init_meta(%options);
    Class::MOP::class_of($options{for_class})->superclasses(
        'IM::Engine::Plugin::Commands::Command'
    ) if $options{for_class} ne 'IM::Engine::Plugin::Commands::Command';
    goto $init_meta;
}

1;