note
Perlbotics
<p>
It's a common setter/getter idiom however with an unfortunate chosen method name <c>setID</c>.
</p>
<p>
'get' attribute: no argument given, so $id is undefined, current value of <c>$self->{_id}</c> is returned
<c>
my $id = $obj->setID(); # return current _id
</c>
'set' attribute (and 'get' new value at the same time)
<c>
my $new_id = $obj->setID( 42 ); # updates and returns new _id 42
# or just: $obj->setID( 42 );
</c>
</p>
988494
988494