File Coverage

blib/lib/POE/Component/Growl.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

# ===========================================================================
# POE::Component::Growl - version 1.00 - 31 Jul 2005
#
# Growl notification dispatcher for POE
#
# Author: Alessandro Ranellucci
# Copyright (c) 2005 - All Rights Reserved.
#
# See below for documentation.
#Ê

package POE::Component::Growl;

use strict;
use vars qw($VERSION);

use Carp qw(croak);
use Mac::Growl ':all';
use POE;

$VERSION = '1.00';

# object fields ("SF" stands for "self")
sub SF_ALIAS 	() { 0 }
sub SF_APPNAME 	() { 1 }
sub SF_NOTIF 	() { 2 }

sub spawn {
	my $type = shift;
	croak "$type requires an even number of parameters" if @_ % 2;
	my %params = @_;

	# let's check params
	my $alias = delete $params{Alias} || 'Growl';
	my $appname = delete $params{AppName} || croak("Missing AppName parameter");
	my $notif = delete $params{Notifications} || croak("Missing Notifications parameter");
	my $defaultnotif = delete $params{DefaultNotifications} || $notif;
	my $icon = delete $params{IconOfApp} || undef;
	croak("Unknown parameters: ", join(', ', sort keys %params))
		if scalar keys %params;

	# register our app with Mac::Growl
	RegisterNotifications($appname, $notif, $defaultnotif, $icon);
	my $self = bless [
		$alias,
		$appname,
		$notif
	], $type;

	# register session with POE
	POE::Session->create(
		object_states => [
			$self => {
				_start => '_start',
				post => 'post'
			}
		]
	);

	return $self;
}

sub _start {
	my ($object, $kernel) = @_[OBJECT, KERNEL];
	$kernel->alias_set( $object->[SF_ALIAS] );
}

sub post {
	my ($object, $kernel, $not) = @_[OBJECT, KERNEL, ARG0];
	$object->notify($not);
}

sub notify {
	my ($self, $not) = @_;

	&PostNotification(
		$self->[SF_APPNAME],
		@$not{ qw/name title descr/ },
		map { $not->{$_} || 0 } qw/sticky priority/,
		$not->{imagepath}
	);
}

1;

__END__