From: Dave Rolsky <autarch@urth.org>
Date: Tue, 3 Aug 2010 10:50:44 +0000 (+0200)
Subject: Tweak augment example to use $self as needed
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=62e6bee07fceae46a1910ff3c663e794a08733c8;p=gitmo%2Fmoose-presentations.git

Tweak augment example to use $self as needed
---

diff --git a/moose-class/slides/index.html b/moose-class/slides/index.html
index cc786a5..7759fd3 100644
--- a/moose-class/slides/index.html
+++ b/moose-class/slides/index.html
@@ -2417,19 +2417,21 @@ around run</span> =&gt; sub {
 <div class="slide">
   <h1>Augment and Inner</h1>
 
-  <pre><code>package Document;
+  <pre class="medium"><code>package Document;
 
 sub xml { '&lt;doc&gt;' . <span class="highlight">inner()</span> . '&lt;/doc&gt;' }
 
 package Report;
 extends 'Document';
 <span class="highlight">augment xml</span> =&gt;
-    sub { title() . <span class="highlight">inner()</span> . summary() };
+    sub { my $self = shift;
+          $self-&gt;title() . <span class="highlight">inner()</span> . $self-&gt;summary() };
 
 package TPSReport;
 extends 'Report';
 <span class="highlight">augment xml</span> =&gt;
-    sub { tps_xml() . <span class="highlight">inner()</span> };</code></pre>
+    sub { my $self = shift;
+          $self-&gt;tps_xml() . <span class="highlight">inner()</span> };</code></pre>
 </div>
 
 <div class="slide">