Re^5: Import constants?


Keep It Simple, Stupid
	PerlMonks

Re^5: Import constants?

by almut (Canon)

on Aug 05, 2010 at 09:15 UTC ( [id://853083]=note: print w/replies, xml )

Need Help??

in reply to Re^4: Import constants?
in thread Import constants?

Could you show the exact code that produces the problem?

With the following test I can't replicate the issue:

#!/usr/bin/perl -l
use DBIx::Log4perl qw(:masks);

$DBIx::Log4perl::LogMask = DBIX_L4P_LOG_OUTPUT | DBIX_L4P_LOG_INPUT;

print $DBIx::Log4perl::LogMask;
[download]

(prints '3', as expected)

Comment on Re^5: Import constants? Download Code

Replies are listed 'Best First'.

Re^6: Import constants?
by DreamT (Pilgrim) on Aug 05, 2010 at 09:31 UTC

use DBIx::Log4perl qw(:masks);

$DBIx::Log4perl::LogMask = DBIX_L4P_LOG_OUTPUT | DBIX_L4P_LOG_INPUT;

Log::Log4perl->init("myconfig.cfg");

$dbh = DBIx::Log4perl->connect($DSN, "user", "pass");
[download]

log4perl.logger = FATAL, LOGFILE

log4perl.appender.LOGFILE=Log::Log4perl::Appender::File
log4perl.appender.LOGFILE.filename=logs/FATAL.TXT
log4perl.appender.LOGFILE.mode=append
log4perl.appender.LOGFILE.Threshold = ERROR

log4perl.appender.LOGFILE.layout=PatternLayout
log4perl.appender.LOGFILE.layout.ConversionPattern=[%r] %F %L %c - %m%
+n

log4perl.logger.DBIx.Log4perl=DEBUG, A1
log4perl.appender.A1=Log::Log4perl::Appender::File
log4perl.appender.A1.filename=logs/OK.txt
log4perl.appender.A1.mode=append
log4perl.appender.A1.layout=Log::Log4perl::Layout::SimpleLayout
[download]

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://853083]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others sharing their wisdom with the Monastery: (5)

As of 2024-04-23 07:23 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found