File Coverage

blib/lib/Hash/Inflator.pm

Criterion	Covered	Total	%
statement	23	24	95.8
branch	8	10	80.0
condition	3	3	100.0
subroutine	5	5	100.0
pod	1	1	100.0
total	40	43	93.0

use 5.008;
use strict;
use warnings;

package Hash::Inflator;
our $VERSION = '1.100820';
# ABSTRACT: Access hash entries through methods

sub new {
    my $class = shift;

    # handle simple scalars - could happen if we're called with the elements
    # of a list
    return $_[0] if @_ == 1 && !ref $_[0];
    my %hash = @_ > 1 ? @_ : %{ $_[0] };
    for my $key (keys %hash) {
        if (ref $hash{$key} eq 'HASH') {
            $hash{$key} = Hash::Inflator->new($hash{$key});
        } elsif (ref $hash{$key} eq 'ARRAY') {
            $_ = Hash::Inflator->new($_) for @{ $hash{$key} };
        }
    }
    bless \%hash, $class;
}

sub AUTOLOAD {
    my $self = shift;
    our $AUTOLOAD;
    $AUTOLOAD =~ s/.+:://;
    return if $AUTOLOAD =~ /^[A-Z]+$/;
    $self->{$AUTOLOAD};
}
1;


__END__