File Coverage

blib/lib/Growl/Any/DesktopNotify.pm

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

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

use Carp            ();
use Desktop::Notify ();

sub register {
    my ($self, $appname, $events) = @_;
    $self->SUPER::register($appname, $events);
    $self->{instance} = Desktop::Notify->new(
        "app_name" => $self->appname,
    );
}

sub notify {
    my ($self, $event, $title, $message, $icon) = @_;
    $icon = $self->icon_file($icon) if defined $icon;
    my $notify = $self->{instance}->create(
        body     => $self->encode($message),
        summary  => $self->encode($title),
        timeout  => 5000,
        app_icon => $icon,
    );
    $notify->show();
}

1;
__END__