if to elsif
Guillermo Roditi [Fri, 26 Oct 2007 20:40:31 +0000 (20:40 +0000)]
lib/Class/MOP/Attribute.pm

index 90f7d57..c2cfdf1 100644 (file)
@@ -91,8 +91,7 @@ sub initialize_instance_slot {
     # attribute's default value (if it has one)
     if (!defined $val && defined $self->{'$!default'}) {
         $val = $self->default($instance);
-    }
-    if (!defined $val && defined $self->{'$!builder'}) {
+    } elsif (!defined $val && defined $self->{'$!builder'}) {
         my $builder = $self->{'$!builder'};
         confess(blessed($instance)." does not support builder method '$builder' for attribute '" . $self->name . "'")
             unless $instance->can($builder);