File Coverage

blib/lib/HL.pm
Criterion Covered Total %
statement 12 12 100.0
branch 3 4 75.0
condition n/a
subroutine 3 3 100.0
pod n/a
total 18 19 94.7


line stmt bran cond sub pod time code
1             package HL;
2 1     1   5 use strict;
  1         1  
  1         21  
3 1     1   4 use warnings;
  1         1  
  1         112  
4              
5             our $VERSION = '0.001';
6              
7             our $AUTOLOAD;
8              
9             sub AUTOLOAD {
10 10     10   2311 my ($in, @args) = @_;
11 10         15 my $meth = $AUTOLOAD;
12 10         38 $meth =~ s/^.*:://g;
13              
14 10 50       33 my @got = $in->$meth(@args ? @args : ());
15 10 100       45 return unless @got;
16 8         38 return ($meth => $got[-1]);
17             }
18              
19             1;