},
);
- our $VERSION = '0.70';
+ our $VERSION = '0.84';
my $xs = !(defined(&is_valid_class_name) || $ENV{MOUSE_PUREPERL} || $ENV{PERL_ONLY});
sub not_supported{
my($feature) = @_;
- $feature ||= ( caller(1) )[3]; # subroutine name
+ $feature ||= ( caller(1) )[3] . '()'; # subroutine name
local $Carp::CarpLevel = $Carp::CarpLevel + 1;
Carp::confess("Mouse does not currently support $feature");
=head1 VERSION
-This document describes Mouse version 0.70
+This document describes Mouse version 0.84
=head1 SYNOPSIS