blob: 0772d998fde981ff6992c278a23a85877e14d51b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
###########################################
# Test Suite for Log::Log4perl::Level
# Mike Schilli, 2008 (m@perlmeister.com)
###########################################
BEGIN {
if($ENV{INTERNAL_DEBUG}) {
require Log::Log4perl::InternalDebug;
Log::Log4perl::InternalDebug->enable();
}
}
###########################################
# Subclass L4p
package Mylogger;
use strict;
use Log::Log4perl;
our @ISA = qw(Log::Log4perl);
###########################################
package main;
use strict;
use Test::More;
plan tests => 1;
my $logger = Mylogger->get_logger("Waah");
is($logger->{category}, "Waah", "subclass category rt #32942");
|