From: Dave Rolsky <autarch@urth.org>
Date: Wed, 2 Sep 2009 16:34:57 +0000 (-0500)
Subject: Add some slides for Native delegation
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1c32806a415472ca126fcba161ec8e15ed45540f;p=gitmo%2Fmoose-presentations.git

Add some slides for Native delegation
---

diff --git a/moose-class/slides/index.html b/moose-class/slides/index.html
index 5e678db..992d256 100644
--- a/moose-class/slides/index.html
+++ b/moose-class/slides/index.html
@@ -3303,6 +3303,58 @@ has history =&gt; (
 </div>
 
 <div class="slide">
+  <h1>Native Delegation</h1>
+
+  <ul>
+    <li>Delegate to <em>unblessed</em> Perl types</li>
+    <li>Scalar, array or hash ref, etc</li>
+  </ul>
+</div>
+
+<div class="slide">
+  <h1>Native Delegation - Array</h1>
+
+  <pre><code>package Person;
+use Moose;
+
+has _favorite_numbers =&gt; (
+    traits   =&gt; [ 'Array' ],
+    is       =&gt; 'ro',
+    isa      =&gt; 'ArrayRef[Int]',
+    default  =&gt; sub { [] },
+    init_arg =&gt; undef,
+    <span class="highlight">handles  =&gt;
+      { favorite_numbers    =&gt; 'elements',
+        add_favorite_number =&gt; 'push',
+      },</span>
+);</code></pre>
+
+  <ul>
+    <li>Automatically defaults to <code>[]</code></li>
+  </ul>
+</div>
+
+<div class="slide">
+  <h1>Native Delegation - Counter</h1>
+
+  <pre><code>package Stack;
+use Moose;
+
+has depth =&gt; (
+    traits   =&gt; [ 'Counter' ],
+    is       =&gt; 'ro',
+    isa      =&gt; 'Int',
+    default  =&gt; 0,
+    init_arg =&gt; undef,
+    <span class="highlight">handles  =&gt;
+      { _inc_depth =&gt; 'inc',
+        _dec_depth =&gt; 'dec',
+      },</span>
+);</code></pre>
+</div>
+
+
+<div class="slide">
   <h1>Traits and Metaclasses</h1>
 
   <ul>