File Coverage

blib/lib/Object/Remote/GlobContainer.pm
Criterion Covered Total %
statement 10 10 100.0
branch 1 2 50.0
condition n/a
subroutine 3 3 100.0
pod n/a
total 14 15 93.3


line stmt bran cond sub pod time code
1             package Object::Remote::GlobContainer;
2 11     11   64 use Moo;
  11         19  
  11         54  
3 11     11   6939 use FileHandle;
  11         83544  
  11         50  
4              
5             has _handle => (is => 'ro', required => 1, init_arg => 'handle');
6              
7             sub AUTOLOAD {
8 1     1   6 my ($self, @args) = @_;
9 1         18 (my $method) = our $AUTOLOAD =~ m{::([^:]+)$};
10 1 50       9 return if $method eq 'DESTROY';
11 1         29 return $self->_handle->$method(@args);
12             }
13              
14             1;