X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse.pm;h=22d8b2dceeb0e276227e34ed3adbf35e707bc59d;hp=2e71b9f73a6bee304c38c7c48f5c002c28a0c3ad;hb=1bfebf5f59ec3d3b5624f3d3a186506150f08ed2;hpb=8fd9e611aa5ab3bc951c0ff4e300ecbe1f9b0c0f diff --git a/lib/Mouse.pm b/lib/Mouse.pm index 2e71b9f..22d8b2d 100644 --- a/lib/Mouse.pm +++ b/lib/Mouse.pm @@ -39,7 +39,12 @@ do { $names = [$names] if !ref($names); for my $name (@$names) { - Mouse::Meta::Attribute->create($package, $name, @_); + if ($name =~ s/^\+//) { + Mouse::Meta::Attribute->clone_parent($package, $name, @_); + } + else { + Mouse::Meta::Attribute->create($package, $name, @_); + } } }; },