File Coverage

blib/lib/Growl/Any/GrowlNotifySend.pm
Criterion Covered Total %
statement 15 20 75.0
branch 0 2 0.0
condition n/a
subroutine 5 6 83.3
pod 0 1 0.0
total 20 29 68.9


line stmt bran cond sub pod time code
1             package Growl::Any::GrowlNotifySend;
2 3     3   19 use strict;
  3         5  
  3         100  
3 3     3   14 use warnings;
  3         5  
  3         79  
4 3     3   15 use parent qw(Growl::Any::Base);
  3         6  
  3         16  
5              
6 3     3   144 use Carp ();
  3         4  
  3         45  
7 3     3   1020 use Growl::NotifySend ();
  1         2  
  1         388  
8              
9             sub notify {
10 0     0 0   my ($self, $event, $title, $message, $icon) = @_;
11              
12 0           my @opts;
13 0 0         if(defined $icon) {
14 0           push @opts, 'icon', $self->icon_file($icon);
15             }
16              
17             Growl::NotifySend->show(
18 0           summary => $title,
19             body => $message,
20             @opts,
21             );
22             }
23              
24             1;
25             __END__