integrate default import tag api from 0.004300

[p5sagit/Log-Contextual.git] / t / lib / DefaultImportLogger.pm

diff --git a/t/lib/DefaultImportLogger.pm b/t/lib/DefaultImportLogger.pm
new file mode 100644 (file)
index 0000000..314c5fc
--- /dev/null
+++ b/t/lib/DefaultImportLogger.pm
@@ -0,0 +1,23 @@
+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;