We don't ever call group_ensure() with a non-null group, and
libmeanwhile takes steps to ensure a group never has a NULL name,
so this can't happen. But this makes clang happier.
usePurple;
%PLUGIN_INFO=(
perl_api_version=>2,
name=>'Test Perl Plugin',
version=>'1.0',
summary=>'Provides as a test base for the perl plugin.',
description=>'Provides as a test base for the perl plugin.',
author=>'Etan Reisner <deryni\@pidgin.im>',
url=>'http://pidgin.im',
load=>"plugin_load"
);
subplugin_init{
return%PLUGIN_INFO;
}
subaccount_status_cb{
my($account,$old,$new,$data)=@_;
Purple::Debug::info("perl test plugin","In account_status_cb\n");
Purple::Debug::info("perl test plugin","Account ".
$account->get_username()." changed status.\n");
Purple::Debug::info("perl test plugin",$data."\n");
}
subplugin_load{
my$plugin=shift;
Purple::Debug::info("perl test plugin","plugin_load\n");
Purple::Debug::info("perl test plugin","Listing accounts.\n");
foreach$account(Purple::Accounts::get_all()){
Purple::Debug::info("perl test plugin",$account->get_username()."\n");