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