refactor log router API to use named args and clearer names for those args

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

diff --git a/t/lib/TestRouter.pm b/t/lib/TestRouter.pm
new file mode 100644 (file)
index 0000000..67e57c1
--- /dev/null
+++ b/t/lib/TestRouter.pm
@@ -0,0 +1,25 @@
+package TestRouter;
+
+use Moo;
+use Log::Contextual::SimpleLogger;
+
+with 'Log::Contextual::Role::Router';
+
+has captured => (is => 'ro', default => sub { {} });
+
+sub before_import {
+   my ($self, %export_info) = @_;
+   $self->captured->{before_import} = \%export_info;
+}
+
+sub after_import {
+   my ($self, %export_info) = @_;
+   $self->captured->{after_import} = \%export_info;
+}
+
+sub handle_log_request {
+   my ($self, %message_info) = @_;
+   $self->captured->{message} = \%message_info;
+}
+
+1;
\ No newline at end of file