Stop using "has +" in roles, especially since it wasn't doing anything anyway

diff --git a/Changes b/Changes
new file mode 100644 (file)
index 0000000..ce9d9e9
--- /dev/null
+++ b/Changes
@@ -0,0 +1,4 @@
+0.02  2009-12-28
+    * Stop using "has +" in roles, especially since it wasn't doing anything
+      anyway
+

diff --git a/lib/MooseX/HasDefaults/Meta/IsRO.pm b/lib/MooseX/HasDefaults/Meta/IsRO.pm
index 1607ca3..9e30190 100644 (file)
--- a/lib/MooseX/HasDefaults/Meta/IsRO.pm
+++ b/lib/MooseX/HasDefaults/Meta/IsRO.pm
@@ -1,11 +1,6 @@
 package MooseX::HasDefaults::Meta::IsRO;
 use Moose::Role;
 
-# This does not actually do anything but lie less in the attribute's metadata.
-has '+is' => (
-    default => 'ro',
-);
-
 around _process_options => sub {
     my $orig = shift;
     my (undef, undef, $options) = @_;

diff --git a/lib/MooseX/HasDefaults/Meta/IsRW.pm b/lib/MooseX/HasDefaults/Meta/IsRW.pm
index 4b113c9..f73da2d 100644 (file)
--- a/lib/MooseX/HasDefaults/Meta/IsRW.pm
+++ b/lib/MooseX/HasDefaults/Meta/IsRW.pm
@@ -1,11 +1,6 @@
 package MooseX::HasDefaults::Meta::IsRW;
 use Moose::Role;
 
-# This does not actually do anything but lie less in the attribute's metadata.
-has '+is' => (
-    default => 'rw',
-);
-
 around _process_options => sub {
     my $orig = shift;
     my (undef, undef, $options) = @_;