use strict;
use warnings;
-our $VERSION = '0.02';
+our $VERSION = '0.04';
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, @_);
+ }
}
};
},
Mouse - Moose minus the antlers
-=head1 VERSION
-
-Version 0.02 released 11 Jun 08
-
=head1 SYNOPSIS
package Point;