Test-Log4perl

 view release on metacpan or  search on metacpan

lib/Test/Log4perl.pm  view on Meta::CPAN

    category => $self->{category},  # oops, there goes encapsulation
    priority => $priority_name,
    message  => $message,
    filename => $filename,
    line     => $line,
  };

  return;
}

sub _cur_filename { (caller)[1] }

1;

package Log::Log4perl::Logger::IgnoreAll;
use base qw(Log::Log4perl::Logger);

# all the functions we don't want
foreach my $level (qw(debug info warn error fatal log))
{
  no strict 'refs';

t/01basic.t  view on Meta::CPAN

test_out("ok 1 - Log4perl test");
Test::Log4perl->end();
test_test("logdie");

##################################
##################################

sub filename
{
  return (caller)[1];
}

t/02ignore.t  view on Meta::CPAN

Test::Log4perl->end();

test_test("ignoring priority forever");

##################################
##################################

sub filename
{
  return (caller)[1];
}

t/04re.t  view on Meta::CPAN

$tlogger->error(qr/tree/);
$logger->error("my hair is on fire!");
Test::Log4perl->end();

test_test("getting wrong message");

########################################################

sub filename
{
  return (caller)[1];
}