The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use warnings;
use strict;
use Test::More;
use Business::CPI::EmptyLogger;

ok(my $log = Business::CPI::EmptyLogger->new(), 'the empty logger builds');
isa_ok($log, 'Business::CPI::EmptyLogger', '$log');
ok(!$log->is_debug, "it's not debug");

map {
    is($log->$_,  undef, "$_ doesn't do anything")
} qw/debug info warn error fatal/;

done_testing;