X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FRole.pm;h=312f1ad6742772e200d98e51f36dd04e5e1d6d96;hb=a2227e71332a3c0e26445c14c7bb596eb06dbc92;hp=678d4e92b84ab5f61a4b67854db27f35de51b81d;hpb=9ffa533a81c638abce5bfac2e363d1fe7645380e;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Role.pm b/lib/Mouse/Role.pm index 678d4e9..312f1ad 100644 --- a/lib/Mouse/Role.pm +++ b/lib/Mouse/Role.pm @@ -7,10 +7,16 @@ use Sub::Exporter; use Carp 'confess'; use Scalar::Util; +use Mouse::Meta::Role; + do { my $CALLER; my %exports = ( + meta => sub { + my $meta = Mouse::Meta::Role->initialize($CALLER); + return sub { $meta }; + }, extends => sub { return sub { confess "Role does not currently support 'extends'";