File Coverage

blib/lib/Log/Dispatch/MacGrowl.pm

Criterion	Covered	Total	%
statement	39	48	81.2
branch	3	6	50.0
condition	3	8	37.5
subroutine	12	13	92.3
pod	1	1	100.0
total	58	76	76.3

#

package Log::Dispatch::MacGrowl;

use strict;
use 5.005;
use vars qw($VERSION @ISA);
use base qw(Log::Dispatch::Output);
use File::Basename ();
use Params::Validate qw(validate SCALAR BOOLEAN);
Params::Validate::validation_options( allow_extra => 1 );

$VERSION = '0.04';

BEGIN {
	if( eval "use Cocoa::Growl; 1" ){
		eval q{ use base "Log::Dispatch::MacGrowl::Cocoa" };
	}
	elsif( eval "use Growl::Tiny; 1" ){
		eval q{ use base "Log::Dispatch::MacGrowl::Tiny" };
	}
	else{
		eval q{ use base "Log::Dispatch::MacGrowl::Mac" };
	}
}

sub new {
    my $param = shift;
    my $class = ref $param || $param;

    my $self = bless {}, $class;

    $self->_basic_init(@_);
    $self->_init(@_);

    return $self;
}

sub _init {
    my $self = shift;

    my $check = {
	app_name => {
	    type => SCALAR,
	    default => __PACKAGE__,
	},
	title => {
	    type => SCALAR,
	    default => File::Basename::basename( $0 ),
	},
	priority => {
	    type => SCALAR,
	    default => 0,
	    regex => qr{^\-*[0-2]$}o,
	},
	sticky => {
	    type => BOOLEAN,
	    default => 1,
	},
	icon_file => {
	    type => SCALAR,
	    default => undef,
	},
    };

    my %p = Params::Validate::validate( @_, $check );

    $self->{app_name} = $p{app_name};
    $self->{title} = $p{title};
    $self->{priority} = $p{priority} || 0;
    $self->{sticky} = defined $p{sticky} && $p{sticky} ? 1 : 0;
    $self->{icon_file} = $p{icon_file};

    $self->_set_global;

    return $self;
}

sub _notification_name { "New Message" }

1;

__END__