package
Weed::FieldTypes::SFString;
our
$VERSION
=
'0.009'
;
use
Unicode::String;
#Text::Unidecode;
use
overload
# '0+' => 'length',
'~'
=>
sub
{ ~
$_
[0]->getValue },
;
#sub getInitialValue { $_[0]->getDefinition->getValue }
sub
setValue {
my
(
$this
,
$value
) =
@_
;
$this
->X3DField::setValue(
defined
$value
?
"$value"
:
$this
->getDefaultValue );
}
sub
toString {
sprintf
"%s"
,
$_
[0]->getValue }
1;
__END__