X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FUtil.pm;h=fccf4878537e3517136d0f27ef3f1374f7dc6261;hb=32787983185051c87c3850e0f31cfb5d9196f613;hp=b5a433f47d966647f61e8a3fba54a9dd18336d62;hpb=825f7cdadcd71fb73aa7f6fa7c29b4f2d0c25366;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm index b5a433f..fccf487 100644 --- a/lib/Mouse/Util.pm +++ b/lib/Mouse/Util.pm @@ -48,7 +48,7 @@ BEGIN{ }, ); - our $VERSION = '0.74'; + our $VERSION = '0.75'; 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.74 +This document describes Mouse version 0.75 =head1 SYNOPSIS