[scpubgit/Object-Remote.git] / t / lib / ORTestBridge.pm

package ORTestBridge;
use Moo;

use Object::Remote;

has object => (is => 'lazy');

sub _build_object { ORTestClass->new::on('-') }

sub call {
  my ($self, $method, @args) = @_;
  return $self->object->$method(@args);
}

1;
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;