t/lib/ORTestBridge.pm

   1 package ORTestBridge;
   2 use Moo;
   3
   4 use Object::Remote;
   5
   6 has object => (is => 'lazy');
   7
   8 sub _build_object { ORTestClass->new::on('-') }
   9
  10 sub call {
  11   my ($self, $method, @args) = @_;
  12   return $self->object->$method(@args);
  13 }
  14
  15 1;