File Coverage

blib/lib/Growl/Any/NetGrowlClient.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::NetGrowlClient;

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

use Carp             ();
use Net::GrowlClient ();

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

    $self->{instance} = Net::GrowlClient->init(
        CLIENT_TYPE_REGISTRATION => 0,
        CLIENT_TYPE_NOTIFICATION => 1,
        CLIENT_PASSWORD          => $self->{password},
        CLIENT_APPLICATION_NAME  => $self->appname,
        CLIENT_NOTIFICATION_LIST => [ $self->encode_list(@{$events}), 'Error'],
    );
};

sub notify {
    my ($self, $event, $title, $message, $icon) = @_;
    $self->{instance}->notify(
        title        => $self->encode($title),
        message      => $self->encode($message),
        notification => $self->encode($event),
    );
}

1;
__END__