some basic cleanup
Stevan Little [Wed, 28 Nov 2007 22:39:21 +0000 (22:39 +0000)]
lib/Moose/Meta/Attribute.pm
t/040_type_constraints/017_subtyping_union_types.t

index 9dbc1c2..79304b6 100644 (file)
@@ -206,7 +206,7 @@ sub initialize_instance_slot {
     my $value_is_set;
     if (exists $params->{$init_arg}) {
         $val = $params->{$init_arg};
-        $value_is_set = 1;
+        $value_is_set = 1;    
     }
     else {
         # skip it if it's lazy
index 1063379..22dec83 100644 (file)
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 18;
+use Test::More tests => 21;
 use Test::Exception;
 
 BEGIN {