Commit | Line | Data |
852c2b28 |
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; |