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