first pass at fixing Data::Perl::String for moose emulation