remove trailing whitespace

[gitmo/Moose.git] / t / 020_attributes / 011_more_attr_delegation.t

diff --git a/t/020_attributes/011_more_attr_delegation.t b/t/020_attributes/011_more_attr_delegation.t
index 4445908..99a3b40 100644 (file)
--- a/t/020_attributes/011_more_attr_delegation.t
+++ b/t/020_attributes/011_more_attr_delegation.t
@@ -6,6 +6,14 @@ use warnings;
 use Test::More tests => 39;
 use Test::Exception;
 
+=pod
+
+This tests the more complex
+delegation cases and that they
+do not fail at compile time.
+
+=cut
+
 {
 
     package ChildASuper;
@@ -150,14 +158,14 @@ use Test::Exception;
     } "subrefs on non moose class give no meta";
 
     ::is( $delegate_class, "ChildF", "plain classes are handed down to subs" );
-    
+
     ::lives_ok {
         has child_g => (
             isa     => "ChildG",
             default => sub { ChildG->new },
             handles => ["child_g_method_1"],
         );
-    } "can delegate to object even without explicit reader";    
+    } "can delegate to object even without explicit reader";
 
     sub parent_method { "p" }
 }
@@ -193,7 +201,7 @@ ok( !$p->can("child_b_method_2"), "but not ChildB's unspecified siblings" );
 
 
 ok( !$p->can($_), "none of ChildD's methods ($_)" )
-    for grep { /^child/ } map { $_->{name} } ChildD->meta->compute_all_applicable_methods();
+    for grep { /^child/ } map { $_->name } ChildD->meta->get_all_methods();
 
 can_ok( $p, "child_c_method_3_la" );
 can_ok( $p, "child_c_method_4_la" );