sub func {
        my($self) = @_;

        $self->{foo} = "bar";
    }