Encode blessed objects.
Support `bless(\do {my$o=3})`