File Coverage

blib/lib/Object/FromData/Hash.pm

Criterion	Covered	Total	%
statement	42	47	89.3
branch	9	14	64.2
condition	1	2	50.0
subroutine	8	11	72.7
pod	4	4	100.0
total	64	78	82.0

package Object::FromData::Hash;

use strict;
use warnings;
use Digest::MD5 'md5_hex';    # convenience, not security

our $VERSION = '0.03';

sub _new {
    my ( $class, $arg_for ) = @_;

    my $hashref       = $arg_for->{ref};
    my $allow_private = $arg_for->{allow_private} || 0;
    my @all_keys      = sort( CORE::keys(%$hashref) );

    my $self = {
        hash          => {},
        allow_private => $allow_private,
        keys => [ $allow_private ? @all_keys : grep { !/^_/ } @all_keys ],
    };
    my $new_class = "${class}::" . md5_hex( join '-' => @{ $self->{keys} } );
    {
        no strict 'refs';
        @{"${new_class}::ISA"} = $class;
    }

    KEY: foreach my $key (@all_keys) {
        my $value = $hashref->{$key};
        if ( 'ARRAY' eq ref $value ) {
            $self->{hash}{$key}
              = Object::FromData::Array->_new( { ref => $value } );
        }
        elsif ( 'HASH' eq ref $value ) {
            $self->{hash}{$key} = $class->_new( { ref => $value } );
        }
        else {
            $self->{hash}{$key} = $value;
        }
        if ( $key =~ /^_/ ) {
            next KEY unless $allow_private;
        }
        no strict 'refs';
        *{"${new_class}::$key"} = sub { $self->{hash}{$key} };
    }
    return bless $self => $new_class;
}

sub keys {
    my $self = shift;
    $self = shift if @_;
    return keys %{ $self->{hash} };
}

sub values {
    my $self = shift;
    $self = shift if @_;
    return values %{ $self->{hash} };
}

sub is_hashref  {1}
sub is_arrayref { }

1;

__END__