X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FUtil.pm;h=3ffa37550e5b66e2183a239938973080b5b5e00b;hp=19876a17f4068ff4eb0d1e094d21ab7d3def6eea;hb=5af36247683101e3c457450489486d41f0bd7101;hpb=45f22b92d1140ad101f7c3112bc565890ea5a1ad

diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm
index 19876a1..3ffa375 100644
--- a/lib/Mouse/Util.pm
+++ b/lib/Mouse/Util.pm
@@ -310,6 +310,18 @@ sub english_list {
     return join q{, }, @items, "and $tail";
 }
 
+sub quoted_english_list {
+    return qq{'$_[0]'} if @_ == 1;
+
+    my @items = sort @_;
+
+    return qq{'$items[0]' and '$items[1]'} if @items == 2;
+
+    my $tail = pop @items;
+
+    return join q{, }, (map{ qq{'$_'} } @items), qq{and '$tail'};
+}
+
 # common utilities
 
 sub not_supported{