YAPC::2004::Israel | << Previous | Index | Next >> | Copyright © 2004 Gaal Yahas |
We know about accessors
sub color { my($self, $value) = shift; $self->{color} = $value if defined $value; return $self->{color}; } sub shape { my($self, $value) = shift; #... sub location { #... sub cost { #... sub manufacturer { #...
|