<?xml version="1.0" encoding="windows-1252"?>
<node id="996882" title="Re^2: Modify the Object" created="2012-10-02 13:06:15" updated="2012-10-02 13:06:15">
<type id="11">
note</type>
<author id="248054">
Your Mother</author>
<data>
<field name="doctext">
&lt;p&gt;Your amendment is fine but I prefer the idiom [tobyink] showed. It's terse and lends itself to simple flow validation&amp;ndash;&lt;/p&gt;
&lt;code&gt;# use Carp;
sub access_A {
    my $self = shift;
    $self-&gt;{A} = shift if @_;
    croak "Too many arguments to access_A" if @_;
    $self-&gt;{A};
}&lt;/code&gt;
</field>
<field name="root_node">
996852</field>
<field name="parent_node">
996856</field>
</data>
</node>
