Recommend Against UNIVERSAL:: Methods as Functions, take 2

[p5sagit/p5-mst-13.2.git] / pod / perltooc.pod

diff --git a/pod/perltooc.pod b/pod/perltooc.pod
index 6737105..06f697c 100644 (file)
--- a/pod/perltooc.pod
+++ b/pod/perltooc.pod
@@ -1089,7 +1089,10 @@ for a significant performance improvement:
        if (my $coderef = $self->can($parent . "::CData1")) {
            $self->$coderef($newvalue);
        }
-    } 
+    }
+
+If you override C<UNIVERSAL::can> in your own classes, be sure to return the
+reference appropriately.
 
 =head2 Locking the Door and Throwing Away the Key