On Tue, 25 Oct 2011, Mike Schilli wrote:
> the delay on this ... this snippet doesn't compile for me
> because $cfg isn't defined
Gah, I had a missing module, never mind. The wrapper registration seems
to work, though, here's the output of the script below:
2011/10/26 08:44:32 l4pm 54> Whoa!
which prints the correct file and line number. Log4perl configuration is
log4perl.category = WARN, Screen
log4perl.appender.Screen = Log::Log4perl::Appender::Screen
log4perl.appender.Screen.filename = test.log
log4perl.appender.Screen.layout = Log::Log4perl::Layout::PatternLayout
log4perl.appender.Screen.layout.ConversionPattern = %d %F{1} %L> %m %n
Let me know if you're doing something different.
--
-- Mike
Mike Schilli
m...@perlmeister.com
#!/usr/local/bin/perl -w
use strict;
##---------------------------------------------------------------------------
{
package Wrapper::Log::Log4perl;
use local::lib;
use Moose;
use MooseX::Method::Signatures;
use Log::Log4perl;
Log::Log4perl->wrapper_register( __PACKAGE__ );
## Attribute definitions
has 'logger' => (
is => 'rw',
isa => 'Log::Log4perl::Logger',
);
has 'logger_cfg' => (
is => 'ro',
isa => 'Maybe[Str]',
);
## Object initialization
sub BUILD {
my $self = shift();
unless ( Log::Log4perl->initialized() ) {
$self->init( $self->logger_cfg() );
}
$self->logger( Log::Log4perl->get_logger() );
}
## Method definitions
method init ( Str $cfg ) {
Log::Log4perl->init( $cfg );
};
__PACKAGE__->meta->make_immutable();
}
##---------------------------------------------------------------------------
{
package main;
use Data::Dumper;
my $logApi = Wrapper::Log::Log4perl->new( logger_cfg =>
'test.l4p' );
$logApi->logger->warn("Whoa!");
}
>> I've recently encountered an odd issue while using Moose to create
>> a wrapper class for Log::Log4perl that results in the logger's
>> category somehow being returned as 'Eval.Closure', despite that I've
>> registered the wrapper class as indicated in the documentation.
------------------------------------------------------------------------------
The demand for IT networking professionals continues to grow, and the
demand for specialized networking skills is growing even more rapidly.
Take a complimentary Learning@Cisco Self-Assessment and learn
about Cisco certifications, training, and career opportunities.
http://p.sf.net/sfu/cisco-dev2dev
_______________________________________________
log4perl-devel mailing list
log4perl-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/log4perl-devel
