X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse.pm;h=22d8b2dceeb0e276227e34ed3adbf35e707bc59d;hb=1bfebf5f59ec3d3b5624f3d3a186506150f08ed2;hp=65ff90f85afdde7838486c00e27e8911b6cf0b35;hpb=b7a74822e0483a9dc432af6c64e6b187e360b624;p=gitmo%2FMouse.git diff --git a/lib/Mouse.pm b/lib/Mouse.pm index 65ff90f..22d8b2d 100644 --- a/lib/Mouse.pm +++ b/lib/Mouse.pm @@ -3,7 +3,7 @@ package Mouse; use strict; use warnings; -our $VERSION = '0.02'; +our $VERSION = '0.04'; use 5.006; use Sub::Exporter; @@ -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, @_); + } } }; }, @@ -150,10 +155,6 @@ __END__ Mouse - Moose minus the antlers -=head1 VERSION - -Version 0.02 released 11 Jun 08 - =head1 SYNOPSIS package Point;