Remove the use of get_attribute_map()
gfx [Fri, 2 Oct 2009 10:18:40 +0000 (19:18 +0900)]
t/000-recipes/moose_cookbook_meta_recipe3.t
t/018-multiattr-has.t

index fe1ab24..1587270 100644 (file)
@@ -42,9 +42,8 @@ $| = 1;
 
       my $dump = '';
 
-      my %attributes = %{ $self->meta->get_attribute_map };
-      for my $name ( sort keys %attributes ) {
-          my $attribute = $attributes{$name};
+      for my $name ( $self->meta->get_attribute_list ) {
+          my $attribute = $self->meta->get_attribute($name);
 
           if (   $attribute->does('MyApp::Meta::Attribute::Trait::Labeled')
               && $attribute->has_label ) {
index acd258b..8458e89 100644 (file)
@@ -19,7 +19,7 @@ do {
 };
 
 can_ok(Class => qw/a b c/);
-is(keys %{ Class->meta->get_attribute_map }, 3, "three attributes created");
+is_deeply([sort Class->meta->get_attribute_list], [sort qw/a b c/], "three attributes created");
 Class->new(a => 1, b => 2);
 
 is_deeply(\%trigger, { a => 1, b => 1 }, "correct triggers called");