log4perl.t

use 5.026;
use Test::More;
use Test::Log::Log4perl;

package Foo::Bar::Quux {
    use Moose;
    use Log::Log4perl;
    Log::Log4perl::init(
	\ join(
	    "\n",
	    "log4perl.category.Foo.Bar.Quux  = WARN, Screen",
	    "log4perl.appender.Screen        = Log::Log4perl::Appender::Screen",
	    "log4perl.appender.Screen.stderr = 0",
	    "log4perl.appender.Screen.layout = Log::Log4perl::Layout::SimpleLayout",
	),
    );
    has logger => (
    	default => sub { Log::Log4perl->get_logger("Foo::Bar::Quux") },
    	handles => ["warn"],
    );
    sub BUILD { $_[0]->warn("hello") }
};

{
    my $logger = Test::Log::Log4perl->expect(['Foo.Bar.Quux', warn => qr/hello/ ]);

    new_ok "Foo::Bar::Quux";
}

done_testing;