File Coverage

blib/lib/Package/Butcher/Inflator.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	4	4	100.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	28	29	96.5

package Package::Butcher::Inflator;

# Borrows heavily from Hash::Inflator
use strict;
use warnings;

our $VERSION = '0.02';

sub new {
    my $class = shift;

    #return $_[0] if @_ == 1 && !ref $_[0];
    my %hash = %{ $_[0] };
    for my $key ( keys %hash ) {
        if ( ref $hash{$key} eq 'HASH' ) {
            $hash{$key} = $class->new( $hash{$key} );
        }
    }
    bless \%hash, $class;
}

sub AUTOLOAD {
    my $self = shift;
    our $AUTOLOAD;
    $AUTOLOAD =~ s/.+:://;
    my $result = $self->{$AUTOLOAD};
    if ( 'CODE' eq ref $result ) {
        goto $result;
    }
    else {
        return $result;
    }
}

1;

__END__