# Because Mouse::Util is loaded first in all the Mouse sub-modules,
# XS loader is placed here, not in Mouse.pm.
- our $VERSION = '0.40_08';
+ our $VERSION = '0.40_09';
my $xs = !(exists $INC{'Mouse/PurePerl.pm'} || $ENV{MOUSE_PUREPERL});
*MOUSE_XS = sub(){ $xs };
}
-
use Carp ();
use Scalar::Util ();
sub is_class_loaded;
-
sub apply_all_roles {
my $applicant = Scalar::Util::blessed($_[0])
? shift # instance
return join q{, }, @items, "and $tail";
}
-
# common utilities
sub not_supported{
*does = \&does_role; # alias
1;
-
__END__
=head1 NAME
=head1 VERSION
-This document describes Mouse version 0.40_08
+This document describes Mouse version 0.40_09
=head1 IMPLEMENTATIONS FOR
=head3 C<get_code_info>
-=head1 UTILITIES FOR MOUSE
+=head1 Mouse specific utilities
=head3 C<not_supported>
+=head3 C<get_code_package>
+
+=head3 C<get_code_ref>
+
=head1 SEE ALSO
L<Moose::Util>