X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse.pm;h=22d8b2dceeb0e276227e34ed3adbf35e707bc59d;hb=a3525e9f91941188091199b8159ec391d0f3a998;hp=2e71b9f73a6bee304c38c7c48f5c002c28a0c3ad;hpb=66efb1c8a37ac10378a07dd550e583efe0c7d62d;p=gitmo%2FMouse.git 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, @_); + } } }; },