File Coverage

blib/lib/Growl/Any/NetGrowl.pm

Criterion	Covered	Total	%
statement	15	20	75.0
branch			n/a
condition			n/a
subroutine	5	7	71.4
pod	0	2	0.0
total	20	29	68.9

package Growl::Any::NetGrowl;

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

use Carp       ();
use Net::Growl ();

sub register {
    my ($self, $appname, $events) = @_;
    $self->SUPER::register($appname, $events);
    Net::Growl::register(
        host        => 'localhost',
        application => $self->appname,
        password    => $self->{password},
    );
}

sub notify {
    my ($self, $event, $title, $message, $icon) = @_;
    Net::Growl::notify(
         application => $self->appname,
         title       => $self->encode($title),
         description => $self->encode($message),
         password    => $self->{password},
    );
}

1;

__END__