File Coverage

blib/lib/Log/Dispatch/Prowl.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Log::Dispatch::Prowl;
our $VERSION = '1.000';


use strict;
use warnings;

use WebService::Prowl;

use base qw( Log::Dispatch::Output );

use Params::Validate qw(validate SCALAR);
Params::Validate::validation_options(allow_extra => 1);

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

    my %p = validate(
        @_,
        {   apikey => { type => SCALAR },
            name   => { type => SCALAR }, });

    my $self = bless { apikey => $p{apikey} }, $class;

    $self->_basic_init(%p);

    return $self;
}

my %map_level = (0 => -2, 1 => -2, 2 => -2, 3 => -1, 4 => 0, 5 => 1, 6 => 1, 7 => 2);

sub log_message {
    my $self = shift;
    my %p    = @_;

    my $ws = WebService::Prowl->new(apikey => $self->{apikey});

    my $level = $self->_level_as_number($p{level});
    my $event = uc($self->_level_as_name($p{level}));

    $ws->add(
        application => $p{name},
        event       => $event,
        priority    => $map_level{$level},
        description => $p{message});
}

1;

__END__