PNG  IHDR;IDATxܻn0K )(pA 7LeG{ §㻢|ذaÆ 6lذaÆ 6lذaÆ 6lom$^yذag5bÆ 6lذaÆ 6lذa{ 6lذaÆ `}HFkm,mӪôô! x|'ܢ˟;E:9&ᶒ}{v]n&6 h_tڠ͵-ҫZ;Z$.Pkž)!o>}leQfJTu іچ\X=8Rن4`Vwl>nG^is"ms$ui?wbs[m6K4O.4%/bC%t Mז -lG6mrz2s%9s@-k9=)kB5\+͂Zsٲ Rn~GRC wIcIn7jJhۛNCS|j08yiHKֶۛkɈ+;SzL/F*\Ԕ#"5m2[S=gnaPeғL lذaÆ 6l^ḵaÆ 6lذaÆ 6lذa; _ذaÆ 6lذaÆ 6lذaÆ RIENDB` package Log::Dispatch::Code; { $Log::Dispatch::Code::VERSION = '2.41'; } use strict; use warnings; use Log::Dispatch::Output; use base qw( Log::Dispatch::Output ); use Params::Validate qw(validate CODEREF); Params::Validate::validation_options( allow_extra => 1 ); sub new { my $proto = shift; my $class = ref $proto || $proto; my %p = validate( @_, { code => CODEREF } ); my $self = bless {}, $class; $self->_basic_init(%p); $self->{code} = $p{code}; return $self; } sub log_message { my $self = shift; my %p = @_; delete $p{name}; $self->{code}->(%p); } 1; # ABSTRACT: Object for logging to a subroutine reference __END__ =pod =head1 NAME Log::Dispatch::Code - Object for logging to a subroutine reference =head1 VERSION version 2.41 =head1 SYNOPSIS use Log::Dispatch; my $log = Log::Dispatch->new( outputs => [ [ 'Code', min_level => 'emerg', code => \&_log_it, ], ] ); sub _log_it { my %p = @_; warn $p{message}; } =head1 DESCRIPTION This module supplies a simple object for logging to a subroutine reference. =head1 CONSTRUCTOR The constructor takes the following parameters in addition to the standard parameters documented in L: =over 4 =item * code ($) The subroutine reference. =back =head1 HOW IT WORKS The subroutine you provide will be called with a hash of named arguments. The two arguments are: =over 4 =item * level The log level of the message. This will be a string like "info" or "error". =item * message The message being logged. =back =head1 AUTHOR Dave Rolsky =head1 COPYRIGHT AND LICENSE This software is Copyright (c) 2013 by Dave Rolsky. This is free software, licensed under: The Artistic License 2.0 (GPL Compatible) =cut