[scpubgit/Object-Remote.git] / lib / Object / Remote / GlobContainer.pm

package Object::Remote::GlobContainer;
use Moo;
use FileHandle;

has _handle => (is => 'ro', required => 1, init_arg => 'handle');

sub AUTOLOAD {
  my ($self, @args) = @_;
  (my $method) = our $AUTOLOAD =~ m{::([^:]+)$};
  return if $method eq 'DESTROY';
  return $self->_handle->$method(@args);
}

1;
Commit	Line	Data
ed5a8a8e	1	package Object::Remote::GlobContainer;
	2	use Moo;
	3	use FileHandle;
	4
	5	has _handle => (is => 'ro', required => 1, init_arg => 'handle');
	6
	7	sub AUTOLOAD {
	8	my ($self, @args) = @_;
	9	(my $method) = our $AUTOLOAD =~ m{::([^:]+)$};
	10	return if $method eq 'DESTROY';
	11	return $self->_handle->$method(@args);
	12	}
	13
	14	1;