fix mismatched package names in POD

[catagits/Reaction.git] / lib / Reaction / UI / ViewPort / Field / Mutable / ChooseOne.pm

diff --git a/lib/Reaction/UI/ViewPort/Field/Mutable/ChooseOne.pm b/lib/Reaction/UI/ViewPort/Field/Mutable/ChooseOne.pm
index dba1a6d..35ed397 100644 (file)
--- a/lib/Reaction/UI/ViewPort/Field/Mutable/ChooseOne.pm
+++ b/lib/Reaction/UI/ViewPort/Field/Mutable/ChooseOne.pm
@@ -11,6 +11,10 @@ with 'Reaction::UI::ViewPort::Field::Role::Choices';
 sub adopt_value_string {
   my ($self) = @_;
   my $value = $self->value_string;
+  if(!defined($value) or !length $value) {
+    $self->clear_value;
+    return;
+  }
   $value = $self->str_to_ident($value) if (!ref $value);
   my $attribute = $self->attribute;
   my $checked = $attribute->check_valid_value($self->model, $value);
@@ -28,8 +32,14 @@ around _value_string_from_value => sub {
   my $orig = shift;
   my $self = shift;
   my $value = $self->$orig(@_);
-  return $self->obj_to_name($value->{value}) if Scalar::Util::blessed($value);
-  return $self->obj_to_name($value) if blessed $value;
+
+# what's up with $value->{value} ?!
+# and why are we calling obj_to_name here, shouldn't it be obj_to_str
+#  return $self->obj_to_name($value->{value}) if Scalar::Util::blessed($value);
+#  return $self->obj_to_name($value) if blessed $value;
+
+  return $self->obj_to_str($value) if Scalar::Util::blessed($value);
+
   return "$value"; # force stringify. might work. probably won't.
 };
 sub is_current_value {