Help for this page

Select Code to Download


  1. or download this
    sub accessor {
        my $self = shift;
    ...
        }
        return $$self{key}; # Gets the attribute.
    }
    
  2. or download this
    my $obj->key1(value1)
           ->key2(value2)
           ->key3(value3);