Skip to content

Instantly share code, notes, and snippets.

@j1n3l0
Created November 8, 2018 16:02
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save j1n3l0/15498b8f4d9dfd40a002337c8aa9f7a7 to your computer and use it in GitHub Desktop.
Save j1n3l0/15498b8f4d9dfd40a002337c8aa9f7a7 to your computer and use it in GitHub Desktop.
use 5.026;
use Log::Any::Adapter qw< TAP >;
use Test::Most;
{
package Bar;
use Moo;
use Log::Any qw< $log >;
sub BUILD { $log->debugf('building package: %s', __PACKAGE__) }
}
{
package Foo;
use Moo;
use Log::Any qw< $log >;
sub BUILD { $log->debugf('building package: %s', __PACKAGE__) }
}
new_ok Bar => [];
new_ok Foo => [];
done_testing;
# TAP_LOG_FILTER=all,Bar=none,Foo=none prove t/log.t -mv
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment