sub set_some_property {
        my ($self, $property) = @_;
        $self->{some_prorety} = $property; # (sic)
        return $self;
    }

    sub some_property { $_[0]->{some_property} }