Log::Log4perl use strategies

Select or download this

package Foo;

...
sub foo { $logger->warn("Fooing") }

1;

Select or download this

package Bar;

...
}

1;

Select or download this

use Foo;
use Bar;
...

$f->foo;
$b->bar;

Select or download this

2006/05/09 11:53:01 WARN> test_log_strategies.pl:8 Foo::new - Creating
+ Foo
2006/05/09 11:53:01 WARN> test_log_strategies.pl:19 Bar::new - Creatin
+g Bar
2006/05/09 11:53:01 WARN> test_log_strategies.pl:10 Foo::foo - Fooing
2006/05/09 11:53:01 WARN> test_log_strategies.pl:21 Bar::bar - Baring

Select Code to Download