YAPC::2004::Israel << Previous | Index | Next >> Copyright © 2004 Gaal Yahas

We know about accessors

  • Yes, but do you use them?

    • for your fields?

  • Accessors are tedious to write

     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 { #...

  • So don't write them yourself. Use Class::Accessor