Select Code to Download

    $self->{myhash} = {};

package MyClass;

...
$obj->set_attr( foo => "bar" );

print $obj->get_attr("foo"), "\n";

package MyClass;

...
}

...