File Coverage

blib/lib/Log/Dispatch/Wx.pm

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

package Log::Dispatch::Wx;

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

use Wx;

our $VERSION = '0.01';

sub new {
    my( $class, %p ) = @_;
    my $self = bless {}, $class;

    $self->_basic_init(%p);

    return $self;
}

my %level_map =
  ( 0 => 'Wx::LogDebug',
    1 => 'Wx::LogMessage',
    2 => 'Wx::LogMessage',
    3 => 'Wx::LogWarning',
    4 => 'Wx::LogError',
    5 => 'Wx::LogError',
    6 => 'Wx::LogError',
    7 => 'Wx::LogError',
    );


sub log_message {
    my( $self, %p ) = @_;
    my $level = $self->_level_as_number( $p{level} );
    my $sub = $level_map{$level};

    no strict 'refs';
    &$sub( '%s', $p{message} );
}

1;

__END__