Select Code to Download

sub property1 {
    my ($self, $value) = @_;
...
    @_ >= 2 and $self->{property2} = $value;  # update: s/>/>=/
    $self->{property2};                       # update: s/property/pro
+perty2/
}

sub property1 : Property;
sub property2 : Property;