Commit | Line | Data |
c5133f85 |
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); |
55c0d020 |
15 | |
c5133f85 |
16 | ok(! defined $self->feedback_output && ! defined $self->feedback_input, 'Reset successful'); |
17 | } |
18 | |
19 | sub _log { |
20 | my $self = shift; |
55c0d020 |
21 | |
c5133f85 |
22 | $self->feedback_input([@_]); |
55c0d020 |
23 | |
c5133f85 |
24 | $self->SUPER::_log(@_); |
25 | } |
26 | |
27 | sub _output { |
28 | my ($self, $rendered) = @_; |
29 | $self->feedback_output($rendered); |
30 | } |
31 | |
32 | 1; |