perl - PidginプラグインでPurple::ConversationをGTK2::TextViewとしてキャストしますか?

Question

プラグインのロード時に呼び出されるサブルーチンには、次のものがあります。

my $plugin = shift;
my $purple_handle = Purple::Conversations::get_handle();

Purple::Signal::connect($purple_handle, "conversation-updated", $plugin, \&conversation_updated_cb, "");

conversation_updated_cb には、次のものがあります。

my $conv = shift;
my $entry = $conv.entry; # $entry defined for convenience of explanation
my $spell = Gtk2::Spell->get_from_text_view($entry);

38 行目で次のエラー メッセージが表示されますmy $spell = Gtk2::Spell->get...。

Perl function exited abnormally: `Purple::Conversation...' is not of type Gtk2::TextView at (eval 26) line 38.

$entry は GTK2::TextView である必要があると想定していますが、これを行う方法がわかりません。また、検索に失敗しました。

~/.purple/plugins/testplugin.pl の完全なコード:

use Purple;
use Gtk2::Spell;

# this part taken from Hello World perl example on pidgin.im
%PLUGIN_INFO = (
    perl_api_version => 2,
    name => "A Perl Test Plugin",
    version => "0.1",
    summary => "Test plugin for the Perl interpreter.",
    description => "Your description here",
    author => "John H. Kelm <johnhkelm\@gmail.com",
    url => "http://pidgin.im",
    load => "plugin_load",
    unload => "plugin_unload"
);
sub plugin_init {
    return %PLUGIN_INFO;
}
sub plugin_load {
    my $plugin = shift;
    Purple::Debug::info("testplugin", "plugin_load() - Test Plugin Loaded.\n");

    my $purple_handle = Purple::Conversations::get_handle();
    Purple::Signal::connect($purple_handle, "conversation-updated", $plugin, \&conversation_updated_cb, "");
}
sub plugin_unload {
    my $plugin = shift;
    Purple::Debug::info("testplugin", "plugin_unload() - Test Plugin Unloaded.\n");
}
sub conversation_updated_cb {
    my $conv = shift;
    my $entry = $conv.entry;

    Purple::Debug::info("Test Plugin", Dumper( \%{ref ($conv)."::" }));
    Purple::Debug::info("Test Plugin", Dumper( \%{ref ($conv.entry)."::" }));

    my $spell = Gtk2::Spell->get_from_text_view($entry);
    Purple::Debug::info("Test Plugin", Dumper( \%{ref ($conv.entry)."::" }));
}