use strict;
use warnings;
use lib qw/lib/;
use GNTP::Growl;
my $growl = GNTP::Growl->new(AppName => "my perl app");
$growl->register([
{ Name => "foo", },
{ Name => "bar", },
]);
$growl->notify(
Event => "foo",
Title => "おうっふー おうっふー",
Message => "大事な事なので\n2回言いました",
Icon => "http://mattn.kaoriya.net/images/logo.png",
);
こんなソースで
こんな物が動く。
開発はこの辺で...
mattn's perl-gntp-growl at master - GitHub