1 package ORFeedbackLogger;
6 extends 'Object::Remote::Logging::Logger';
8 has feedback_output => (is => 'rw' );
9 has feedback_input => ( is => 'rw' );
13 $self->feedback_output(undef);
14 $self->feedback_input(undef);
16 ok(! defined $self->feedback_output && ! defined $self->feedback_input, 'Reset successful');
22 $self->feedback_input([@_]);
24 $self->SUPER::_log(@_);
28 my ($self, $rendered) = @_;
29 $self->feedback_output($rendered);