X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FUtil.pm;h=8d7e0787397da3f74abce4b3bbfda8a2c56e9b80;hb=b11787bf7cafe5074ae42bf8ef4258c5c176f1d2;hp=2b0da0576e98aa0cbc2ab6f5e41c999f5a09695c;hpb=43c1bb1ad8ebe5534248ddc761a9bbbc95044643;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm index 2b0da05..8d7e078 100644 --- a/lib/Mouse/Util.pm +++ b/lib/Mouse/Util.pm @@ -48,7 +48,7 @@ BEGIN{ }, ); - our $VERSION = '0.71'; + our $VERSION = '0.80'; 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.71 +This document describes Mouse version 0.80 =head1 SYNOPSIS