mt-repl

#!/usr/bin/env perl

use strict;
use warnings;

BEGIN {
    use Cwd qw(getcwd);
    $ENV{MT_HOME} ||= getcwd;
}
use lib "$ENV{MT_HOME}/lib", "$ENV{MT_HOME}/extlib";

use MT::Tool;

use Reply;
my $reply = Reply->new( config => "$ENV{HOME}/.replyrc" );
$reply->step('my $mt = MT::Tool->set_up_app; undef');
$reply->run;