File Coverage

blib/lib/Growl/Any/GrowlGNTP.pm

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

package Growl::Any::GrowlGNTP;

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

use Carp        ();
use Growl::GNTP ();

sub register {
    my ($self, $appname, $events) = @_;
    $self->SUPER::register($appname, $events);

    $self->{instance} = Growl::GNTP->new(
        AppName => $self->appname,
    );

    my @e = ();
    push @e, { Name => $self->encode($_) } for @$events;
    push @e, { Name => 'Error' };
    $self->{instance}->register(\@e);
}

sub notify {
    my ($self, $event, $title, $message, $icon, $link) = @_;
    $self->{instance}->notify(
        Title          => $self->encode($title),
        Message        => $self->encode($message),
        Event          => $self->encode($event),
        Icon           => $self->encode($icon),
        CallbackTarget => $self->encode($link),
    );
}

1;
__END__