The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package DefaultImportLogger;

use base 'Log::Contextual';
use Log::Contextual::SimpleLogger;

my $logger = DumbLogger2->new;

sub default_import { ':log' }
sub arg_levels { $_[1] || [qw(lol wut zomg)] }
sub arg_logger { $_[1] || $logger }

package DumbLogger2;

our $var;
sub new { bless {}, 'DumbLogger2' }
sub is_wut { 1 }
sub wut { $var = "[wut] $_[1]\n" }
sub is_lol { 1 }
sub lol { $var = "[lol] $_[1]\n" }
sub is_zomg { 1 }
sub zomg { $var = "[zomg] $_[1]\n" }

1;