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   80 use Moo;
  11         22  
  11         81  
3 11     11   10206 use FileHandle;
  11         118489  
  11         67  
4              
5             has _handle => (is => 'ro', required => 1, init_arg => 'handle');
6              
7             sub AUTOLOAD {
8 1     1   10 my ($self, @args) = @_;
9 1         13 (my $method) = our $AUTOLOAD =~ m{::([^:]+)$};
10 1 50       12 return if $method eq 'DESTROY';
11 1         38 return $self->_handle->$method(@args);
12             }
13              
14             1;