t/lib/ORFeedbackLogger.pm

   1 package ORFeedbackLogger;
   2
   3 use Test::More;
   4 use Moo;
   5
   6 extends 'Object::Remote::Logging::Logger';
   7
   8 has feedback_output => (is => 'rw' );
   9 has feedback_input => ( is => 'rw' );
  10
  11 sub reset {
  12   my ($self) = @_;
  13   $self->feedback_output(undef);
  14   $self->feedback_input(undef);
  15
  16   ok(! defined $self->feedback_output && ! defined $self->feedback_input, 'Reset successful');
  17 }
  18
  19 sub _log {
  20   my $self = shift;
  21
  22   $self->feedback_input([@_]);
  23
  24   $self->SUPER::_log(@_);
  25 }
  26
  27 sub _output {
  28   my ($self, $rendered) = @_;
  29   $self->feedback_output($rendered);
  30 }
  31
  32 1;