# Because Mouse::Util is loaded first in all the Mouse sub-modules,
# XS loader is placed here, not in Mouse.pm.
- our $VERSION = '0.50';
+ our $VERSION = '0.50_02';
my $xs = !(exists $INC{'Mouse/PurePerl.pm'} || $ENV{MOUSE_PUREPERL});
}
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'};
+ return english_list(map { qq{'$_'} } @_);
}
# common utilities
=head1 VERSION
-This document describes Mouse version 0.50
+This document describes Mouse version 0.50_02
=head1 IMPLEMENTATIONS FOR