lib/Object/Remote/GlobContainer.pm

   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;