back out 'bare' attribute changes (moving to a branch)

[gitmo/Moose.git] / lib / Moose / Meta / Attribute.pm

diff --git a/lib/Moose/Meta/Attribute.pm b/lib/Moose/Meta/Attribute.pm
index beb546b..6d487aa 100644 (file)
--- a/lib/Moose/Meta/Attribute.pm
+++ b/lib/Moose/Meta/Attribute.pm
@@ -290,9 +290,6 @@ sub _process_options {
                 $options->{accessor} ||= $name;
             }
         }
-        elsif ($options->{is} eq 'bare') {
-            # do nothing, but don't complain (later) about missing methods
-        }
         else {
             $class->throw_error("I do not understand this option (is => " . $options->{is} . ") on attribute ($name)", data => $options->{is});
         }
@@ -540,17 +537,6 @@ sub install_accessors {
     my $self = shift;
     $self->SUPER::install_accessors(@_);
     $self->install_delegation if $self->has_handles;
-    unless (
-        # XXX handles should be in associated_methods
-        $self->has_handles
-        || @{ $self->associated_methods }
-        || ($self->_is_metadata || '') eq 'bare'
-    ) {
-        $self->throw_error(
-            'Attribute (' . $self->name . ') has no associated methods'
-            . ' (did you mean to provide an "is" argument?)'
-        )
-    }
     return;
 }