File Coverage

blib/lib/Log/Dispatch/DesktopNotification.pm

Criterion	Covered	Total	%
statement	22	27	81.4
branch	2	6	33.3
condition	1	3	33.3
subroutine	7	7	100.0
pod	2	2	100.0
total	34	45	75.5

use strict;
use warnings;
package Log::Dispatch::DesktopNotification; # git description: v0.01-6-g47bff86
# ABSTRACT: Send log messages to a desktop notification system
$Log::Dispatch::DesktopNotification::VERSION = '0.02';
use Module::Load qw/load/;
use Module::Load::Conditional qw/can_load/;
use namespace::clean;

#pod =head1 SYNOPSIS
#pod
#pod     my $notify = Log::Dispatch::DesktopNotification->new(
#pod         name      => 'notify',
#pod         min_level => 'debug',
#pod         app_name  => 'MyApp',
#pod     );
#pod
#pod =head1 METHODS
#pod
#pod =head2 new
#pod
#pod Creates a new L output that can be used to graphically notify a
#pod user on this system. Uses C and calls C on the returned
#pod class, passing along all arguments.
#pod
#pod =cut

sub new {
    my ($class, @args) = @_;
    return $class->output_class->new(@args);
}

#pod =head2 output_class
#pod
#pod Returns the name of a L class that is suitable to
#pod graphically notify a user on the current system.
#pod
#pod On MacOS X, that will be L. On other systems,
#pod L will be returned if it is available and usable.
#pod Otherwise, L will be returned.
#pod
#pod =cut

sub output_class {
    if ($^O eq 'darwin') {
        my $mod = 'Log::Dispatch::MacGrowl';
        load $mod; return $mod;
    }

    if (can_load(modules => { Gtk2 => undef }) && Gtk2->init_check) {
        my $mod = 'Log::Dispatch::Gtk2::Notify';
        return $mod if can_load(modules => { $mod => undef });
    }

    my $mod = 'Log::Dispatch::Null';
    load $mod; return $mod;
}

#pod =head1 BUGS
#pod
#pod Currently only supports Mac OS X and systems on which notification-daemon is
#pod available (most *N*Xes).
#pod
#pod =head1 SEE ALSO
#pod
#pod =for :list
#pod * L
#pod * L
#pod * L
#pod * L
#pod
#pod =cut

1;

__END__