X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FUtil.pm;h=f9f218188ee56dfc96e88131d679031f7f18e264;hp=eb72c43fda3e347039196c083170da1834b37cd5;hb=2e33bb59f4812cdb48fe068c11929c4e646405ab;hpb=8f98ed261eac95dc093a9b6d22c462c790e63736

diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm
index eb72c43..f9f2181 100644
--- a/lib/Mouse/Util.pm
+++ b/lib/Mouse/Util.pm
@@ -9,6 +9,7 @@ our @EXPORT_OK = qw(
     find_meta
     does_role
     resolve_metaclass_alias
+    english_list
 
     load_class
     is_class_loaded
@@ -261,6 +262,19 @@ sub apply_all_roles {
     return;
 }
 
+# taken from Moose::Util 0.90
+sub english_list {
+    return $_[0] if @_ == 1;
+
+    my @items = sort @_;
+
+    return "$items[0] and $items[1]" if @items == 2;
+
+    my $tail = pop @items;
+
+    return join q{, }, @items, "and $tail";
+}
+
 sub not_supported{
     my($feature) = @_;