Help for this page

Select Code to Download


  1. or download this
    package Foo;
use base qw/Class::StructAccessors/;
__PACKAGE__->mk_struct_accessors({A => {B => C}});
  2. or download this
    my $obj = {};
bless $obj, "Foo";
$obj->{A}{B}{C} = "this is a C";
print $obj->C; # outputs  "this is a C"
  3. or download this
    package Bar;
use base qw/Class::StructAccessors/;
__PACKAGE__->mk_struct_accessors({X => {Y => Z}});
  4. or download this
    my $obj = bless {a => {b => {c  => 'data  for c'}}},  "Class::StructAc
+cessorMk2";