},
);
- our $VERSION = '0.73';
+ our $VERSION = '0.76';
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.73
+This document describes Mouse version 0.76
=head1 SYNOPSIS