gistfile1.pl

#!/usr/bin/perl

use Data::OpenStruct::Deep;

my %hash = (
    foo => 1,
    bar => {
        baz => 2,
    },
);

my $struct = Data::OpenStruct::Deep->new(%hash);
print $struct->foo;      #=> 1
print $struct->bar;      #=> { baz => 2 }
print $struct->bar->baz; #=> 2

$struct = Data::OpenStruct::Deep->new;
$struct->foo->bar->baz->quux('deeply');

print $struct->foo->bar;            #=> { baz => { quux => "deeply" } }
print $struct->foo->bar->baz->quux; #=> "deeply"