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