MT::Entryでカテゴリを指定してloadする方法

今日はコーディングの神が降臨してくれました。
おまけに、
MT::Entry (Movable Type) で、
カテゴリを指定してloadする方法もわかっていい感じなので、
そのメモを残してみる。
# Perlでのお話です。

use MT::Entry;
my @entry = MT::Entry->load ( {
author_id => $auth_id,
blog_id => $blg_id
} );

のような形で使われるサンプルがある。
これだとユーザが$auth_idでブログIDが$blg_idのエントリ情報が得られるが、
カテゴリは指定されていない。
次のようにすればカテゴリを指定したエントリ情報を得ることができる。

use MT::Entry;
use MT::Placement;
my @entry = MT::Entry->load ( {
author_id => $auth_id,
blog_id => $blg_id
}, {
join' => [
'MT::Placement',
'entry_id',
{ category_id => $cat_id, },
undef ]
});

このようにすれば、
ユーザが$auth_idでブログIDが$blg_id、カテゴリＩＤが$cat_idな
エントリ情報を得ることができる。
スマートにできるようになったんだけど、
すでに作っちゃってるモノを変更していく作業が面倒そう。。。