X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FUtil.pm;h=5896f4121809b04264f1bd061af06e4737bc2e1a;hb=88e88a7b2cfdf5d777f502a34cfbf5ba69809c58;hp=638e40e71d46c72b1aeb60359328b67c45b69809;hpb=173cb840274371035569e437289a8d2cef1a984b;p=gitmo%2FMoose.git

diff --git a/lib/Moose/Util.pm b/lib/Moose/Util.pm
index 638e40e..5896f41 100644
--- a/lib/Moose/Util.pm
+++ b/lib/Moose/Util.pm
@@ -4,6 +4,7 @@ use strict;
 use warnings;
 
 use Data::OptList;
+use Params::Util qw( _STRING );
 use Sub::Exporter;
 use Scalar::Util 'blessed';
 use Class::MOP   0.60;
@@ -285,6 +286,14 @@ sub meta_class_alias {
     _create_alias('Class', $to, $trait, $from);
 }
 
+# XXX - this should be added to Params::Util
+sub _STRINGLIKE ($) {
+    return _STRING( $_[0] )
+        || ( blessed $_[0]
+        && overload::Method( $_[0], q{""} )
+        && length "$_[0]" );
+}
+
 1;
 
 __END__