use Class::MOP;
use Scalar::Util 'blessed', 'looks_like_number';
-our $VERSION = '0.75';
+our $VERSION = '0.92';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
sub Object { blessed($_[0]) && blessed($_[0]) ne 'Regexp' }
-sub Role { blessed($_[0]) && $_[0]->can('does') }
+sub Role { Carp::cluck('The Role type is deprecated.'); blessed($_[0]) && $_[0]->can('does') }
sub ClassName {
return Class::MOP::is_class_loaded( $_[0] );
=head1 DESCRIPTION
-This file contains the hand optimized versions of Moose type constraints,
+This file contains the hand optimized versions of Moose type constraints,
no user serviceable parts inside.
=head1 FUNCTIONS
=head1 BUGS
-All complex software has bugs lurking in it, and this module is no
+All complex software has bugs lurking in it, and this module is no
exception. If you find a bug please either email me, or add the bug
to cpan-RT.