view release on metacpan or  search on metacpan

lib/Object/Remote/GlobContainer.pm  view on Meta::CPAN

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;