From: Shawn M Moore <sartak@gmail.com>
Date: Sun, 18 May 2008 10:57:58 +0000 (+0000)
Subject: Use get_package_symbol instead of ${ $meta->name . '::AUTOLOAD' }
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b137e0b7a38d2287424788a81b86facf957bcc54;p=gitmo%2FClass-MOP.git

Use get_package_symbol instead of ${ $meta->name . '::AUTOLOAD' }
---

diff --git a/examples/C3MethodDispatchOrder.pod b/examples/C3MethodDispatchOrder.pod
index f6156d5..a279e04 100644
--- a/examples/C3MethodDispatchOrder.pod
+++ b/examples/C3MethodDispatchOrder.pod
@@ -28,7 +28,7 @@ C3MethodDispatchOrder->meta->add_around_method_modifier('initialize' => sub {
         my $method_name;
         {
             no strict 'refs';
-            my $label = ${$meta->name . '::AUTOLOAD'};
+            my $label = ${ $meta->get_package_symbol('$AUTOLOAD') };
             $method_name = (split /\:\:/ => $label)[-1];
         }
         my $method = $_find_method->($meta, $method_name);