X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FRole.pm;h=715ff4f1d7f575f39b6ebabc02c785f11f03ef6a;hb=9527a9d4bb7be669e243cffae1a361532f2ccd84;hp=a4cb4c7e4694a5217d9165028770674ba3872958;hpb=13f78bbc5485977c9fa0809cda34bea7481f7276;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Role.pm b/lib/Mouse/Role.pm index a4cb4c7..715ff4f 100644 --- a/lib/Mouse/Role.pm +++ b/lib/Mouse/Role.pm @@ -1,7 +1,7 @@ package Mouse::Role; use Mouse::Exporter; # enables strict and warnings -our $VERSION = '0.70'; +our $VERSION = '0.71'; use Carp qw(confess); use Scalar::Util qw(blessed); @@ -30,9 +30,8 @@ sub extends { Carp::croak "Roles do not support 'extends'"; } -sub with { - my $meta = Mouse::Meta::Role->initialize(scalar caller); - Mouse::Util::apply_all_roles($meta->name, @_); +sub with { + Mouse::Util::apply_all_roles(scalar(caller), @_); return; } @@ -140,7 +139,7 @@ Mouse::Role - The Mouse Role =head1 VERSION -This document describes Mouse version 0.70 +This document describes Mouse version 0.71 =head1 SYNOPSIS