File Coverage

blib/lib/HS.pm
Criterion Covered Total %
statement 11 11 100.0
branch 1 2 50.0
condition n/a
subroutine 3 3 100.0
pod n/a
total 15 16 93.7


line stmt bran cond sub pod time code
1             package HS;
2 1     1   5 use strict;
  1         1  
  1         22  
3 1     1   4 use warnings;
  1         1  
  1         88  
4              
5             our $VERSION = '0.001';
6              
7             our $AUTOLOAD;
8              
9             sub AUTOLOAD {
10 20     20   3119 my ($in, @args) = @_;
11 20         21 my $meth = $AUTOLOAD;
12 20         84 $meth =~ s/^.*:://g;
13              
14 20 50       64 my $val = $in->$meth(@args ? @args : ());
15 20         123 return ($meth => $val);
16             }
17              
18             1;