File Coverage

blib/lib/Growl/Any/CocoaGrowl.pm

Criterion	Covered	Total	%
statement	15	21	71.4
branch			n/a
condition			n/a
subroutine	5	7	71.4
pod	0	2	0.0
total	20	30	66.6

package Growl::Any::CocoaGrowl;

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

use Carp         ();
use Cocoa::Growl ();

sub register {
    my ($self, $appname, $events) = @_;
    $self->SUPER::register($appname, $events);
    Cocoa::Growl::growl_register(
        app           => $self->appname,
        notifications => [ $self->encode_list(@{$events}) ],
    );
}

sub notify {
    my ($self, $event, $title, $message, $icon) = @_;
    Cocoa::Growl::growl_notify(
        name         => $self->encode($event),
        title        => $self->encode($title),
        description  => $self->encode($message),
        icon         => $icon,
    );
}

1;
__END__