my $thing = Thing->new($id);
  print $thing->name;
  $thing->name($new_name);
  print $thing->id;
  $thing->id($new_id);

##</code><code>##

  print $thing->name;
  $thing->set_name($new_name);

##</code><code>##

[% 
   FOREACH customer = customers;
      customer.last_name; ", "; customer.first_name, "\n";
   END;
%]