小粋空間  -  a cheap joke and a play on words site

Movable TypeのプラグインオブジェクトをPerlで作成するときのバリエーション

Movable Type のPerlによるプラグインオブジェクトを作成するサンプルは次のような感じです。

その1

package MT::Plugin::MyPlugin;
use strict;
use base qw( MT::Plugin );
 
my $plugin = new MT::Plugin::MyPlugin({
    name => 'Sample Plugin: registration',
    version => 1.0,
    description => "Sample: Plugin registration",
    author_name => 'Plugin author',
    author_link => 'http://www.example.com/about/',
    doc_link => 'http://www.example.com/docs/',
});
MT->add_plugin($plugin);

で、何かの拍子にプラグインを調べたときに、プラグインオブジェクトの作成（青色部分）で色々なコードをみつけたので紹介しておきます。コピペミスあったらすいません。

その2

my $plugin = new MT::Plugin({
…中略…
});

その3

my $plugin = MT::Plugin::MyPlugin->new({
…中略…
});
MT->add_plugin( $plugin );

その4

my $plugin = __PACKAGE__->new({
…中略…
});
MT->add_plugin( $plugin );

その5

MT->add_plugin({
…中略…
});

その6

MT->add_plugin(__PACKAGE__->new({
…中略…
}));

その7

my $plugin;
{
    my $about = {
        …中略…
        },
    };
    $plugin = __PACKAGE__->new($about);
}
MT->add_plugin($plugin);

私はYAMLです（笑）。