use strict;
use warnings;
-our $VERSION = '0.03';
+our $VERSION = '0.05';
use 5.006;
use Sub::Exporter;
$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, @_);
+ }
}
};
},