package MT::Plugin::Shokotan;

use strict;
use base qw( MT::Plugin );

my $plugin = MT::Plugin::Shokotan->new({
    id   => 'Shokotan',
    key  => 'shokotan',
    name => 'しょこたんプラグイン',
    version => '0.01',
});

MT->add_plugin($plugin);
MT::Entry->add_callback("pre_save", 10, $plugin, \&entry_pre_save);

sub entry_pre_save {
    my $class = shift;
    my ($entry) = @_;
    return unless UNIVERSAL::isa($entry, 'MT::Entry');

    if ($entry->title() eq '') {
        $entry->title('メポ(<●> <●>)');
    }
}

1;