File Coverage

blib/lib/Growl/Any/MacGrowl.pm

Criterion	Covered	Total	%
statement	15	24	62.5
branch	0	2	0.0
condition			n/a
subroutine	5	7	71.4
pod	0	2	0.0
total	20	35	57.1

package Growl::Any::MacGrowl;

use strict;
use warnings;
use parent qw(Growl::Any::Base);

use Carp       ();
use Mac::Growl ();

sub register {
    my ($self, $appname, $events) = @_;
    $self->SUPER::register($appname, $events);
    my @e = $self->encode_list_from('MacRoman', @{$events});
    Mac::Growl::RegisterNotifications($self->appname, [ @e, 'Error'], \@e);
}

sub notify {
    my ($self, $event, $title, $message, $icon) = @_;
    if (defined $icon) {
        $icon = $self->icon_file($icon);
    }
    Mac::Growl::PostNotification($self->appname,
        $self->encode_list_from( 'MacRoman', $event, $title, $message ), 0, 0, $icon);
}

1;
__END__