File Coverage

blib/lib/HH.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	1	2	50.0
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	17	18	94.4

package HH;
use strict;
use warnings;

our $VERSION = '0.001';

require Carp;

our $AUTOLOAD;

sub AUTOLOAD {
    my ($in, @args) = @_;
    my $meth = $AUTOLOAD;
    $meth =~ s/^.*:://g;

    my %h;
    my ($pkg, $file, $line) = caller(0);
    eval qq[
package $pkg;
#line $line "$file (Via $AUTOLOAD\())"
%h = \$in->\$meth(\@args ? \@args : ());
1;
    ] or die $@;

    return ($meth => \%h);
}

1;