File Coverage

blib/lib/Growl/Any/IOHandle.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition	1	3	33.3
subroutine	6	6	100.0
pod	0	2	0.0
total	23	27	85.1

package Growl::Any::IOHandle;

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

use Encode ();

sub encoding {
    my($class) = @_;
    return Encode::find_encoding('locale') || $class->SUPER::encoding();
}

sub notify {
    my($self, $event, $title, $message, $icon) = @_;

    printf "[%s] %s\n", $self->encode_list( $title, $message );
}

1;

__END__