X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FUtil.pm;h=5ee599042798de5eda9a074d571ae3956b7a1fac;hb=999072aba606906b12c2f18e0ebde72e224de4dc;hp=01ff29369c70fd04f07b449ac1446e67ee845794;hpb=01d4f728d7f3689267bdfbc997e1fbe02f19fabd;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm index 01ff293..5ee5990 100644 --- a/lib/Mouse/Util.pm +++ b/lib/Mouse/Util.pm @@ -48,7 +48,7 @@ BEGIN{ }, ); - our $VERSION = '0.72'; + our $VERSION = '0.82'; my $xs = !(defined(&is_valid_class_name) || $ENV{MOUSE_PUREPERL} || $ENV{PERL_ONLY}); @@ -334,7 +334,7 @@ sub quoted_english_list { 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"); @@ -388,7 +388,7 @@ Mouse::Util - Utilities for working with Mouse classes =head1 VERSION -This document describes Mouse version 0.72 +This document describes Mouse version 0.82 =head1 SYNOPSIS