package Foo;
use base qw/Class::StructAccessors/;
__PACKAGE__->mk_struct_accessors({A => {B => C}});

##</code><code>##

my $obj = {};
bless $obj, "Foo";
$obj->{A}{B}{C} = "this is a C";
print $obj->C; # outputs  "this is a C"

##</code><code>##

package Bar;
use base qw/Class::StructAccessors/;
__PACKAGE__->mk_struct_accessors({X => {Y => Z}});

##</code><code>##

my $obj = bless {a => {b => {c  => 'data  for c'}}},  "Class::StructAccessorMk2";