/usr/share/perl5/App/Alice/Notifier/Growl.pm is in alice 0.19-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | package App::Alice::Notifier::Growl;
use Any::Moose;
sub BUILD {
my $self = shift;
require Mac::Growl;
Mac::Growl->import(":all");
RegisterNotifications("Alice", ["message"], ["message"]);
}
sub display {
my ($self, $message) = @_;
PostNotification("Alice", "message",
$message->{nick} . " in " . $message->{window}->{title},
$message->{body},
);
}
__PACKAGE__->meta->make_immutable;
1;
|