X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=moose-class%2Fslides%2Findex.html;h=72e8bbedbfcb85a3b5b06ff61c5b9996dc1caa43;hb=88ba73cb2747fd9eb409a0ce9e22188d4ecec76b;hp=fa619d8163019dcb8ef092cdac999adac54a76f5;hpb=fb6113ca13b6f433a4f047e91ac39b554276baf0;p=gitmo%2Fmoose-presentations.git

diff --git a/moose-class/slides/index.html b/moose-class/slides/index.html
index fa619d8..72e8bbe 100644
--- a/moose-class/slides/index.html
+++ b/moose-class/slides/index.html
@@ -52,7 +52,7 @@ img#me05 {top: 43px;left: 36px;}
 
 <div class="slide">
   <h1>Introduction to Moose</h1>
-  <h2>Dave Rolsky</a>
+  <h2>Dave Rolsky</h2>
 </div>
 
 <div class="slide">
@@ -71,8 +71,8 @@ img#me05 {top: 43px;left: 36px;}
   <ul>
     <li><strong>Declarative</strong> OO sugar</li>
     <li>Introspectable</li>
-    <li>Extensible (177 MooseX::* on CPAN)</li>
-    <li>Community approved (1222 downstream dependents on CPAN)</li>
+    <li>Extensible (188 MooseX::* on CPAN)</li>
+    <li>Community approved (1200+ downstream dependents on CPAN)</li>
   </ul>
 </div>
 
@@ -155,7 +155,7 @@ img#me05 {top: 43px;left: 36px;}
   <pre><code>package Person;
 use Moose;
 
-<span class="highlight">has first_name =&gt; ( is =&gt; 'rw' );</span></code></pre>
+<span class="highlight">has first_name =&gt; ( is =&gt; 'ro' );</span></code></pre>
 
 </div>
 
@@ -968,6 +968,7 @@ sub BUILD {
   <ul>
     <li>Technically it's a hash reference</li>
     <li><span class="wrong">If you <em>ever</em> treat it as one <strong>you are doing it wrong!</strong></span></li>
+    <li>Moose probably provides a feature to do what you need</li>
   </ul>
 </div>
 
@@ -1053,13 +1054,13 @@ use Moose;
 
 <span class="current incremental">extends 'Person';</span>
 
-<span class="incremental">override</span> work =&gt; sub {
+<span class="incremental">override</span> <span class="incremental">work</span> <span class="incremental">=&gt; sub {
     my $self = shift;
 
     die "Pay me first"
         unless $self-&gt;got_paid;
-    <span class="incremental">super();</span>
-}<span class="incremental">;</span></code></pre>
+    super();
+}</span><span class="incremental">;</span></code></pre>
 </div>
 
 <div class="slide">
@@ -1068,7 +1069,7 @@ use Moose;
   <ul>
     <li>Mostly like <code>$self-&gt;SUPER::work(@_)</code></li>
     <li><strong>But</strong> cannot change <code>@_</code>!</li>
-    <li>Binds the parent's method at compile time</li>
+    <li>Binds the parent's method <strong>correctly</strong> at compile time</li>
     <li>Parent determined by checking <code>Child-&gt;meta()-&gt;superclasses()</code></li>
   </ul>
 </div>
@@ -1235,6 +1236,8 @@ use Moose;
 
 # perl install-moose (if needed)
 
+## Read the instructions in t/01-classes.t
+
 # perl bin/prove -lv t/01-classes.t
 
 # edit lib/Person.pm and lib/Employee.pm
@@ -1306,23 +1309,25 @@ sub print {
   <pre><code>package Person;
 use Moose;
 
-with 'HasPermissions';</code></pre>
+with 'Printable';</code></pre>
 </div>
 
 <div class="slide">
   <h1>Classes Consume Roles</h1>
 
-<pre><code>my $person = Person-&gt;new(
+<pre><code>package Person;
+
+sub as_string { $_[0]-&gt;first_name() }
+
+...
+
+my $person = Person-&gt;new(
     first_name   =&gt; 'Kenichi',
     last_name    =&gt; 'Asai',
     access_level =&gt; 42,
 );
 
-print $person-&gt;full_name
-    . ' has '
-    . $person-&gt;can_access(42)
-        ? 'great power'
-        : 'little power';</code></pre>
+$person-&gt;print();</code></pre>
 </div>
 
 <div class="slide">
@@ -1339,7 +1344,9 @@ print $person-&gt;full_name
 <pre><code>package Person;
 use Moose;
 
-<span class="highlight">with 'Printable';</span></code></pre>
+<span class="highlight">with 'Printable';</span>
+
+sub as_string { $_[0]-&gt;first_name() }</code></pre>
 </div>
 
 <div class="slide">
@@ -1350,6 +1357,8 @@ use Moose;
 
 <span class="delete">with 'Printable';</span>
 
+sub as_string { $_[0]-&gt;first_name() }
+
 <span class="highlight">has has_been_printed =&gt; ( is =&gt; 'rw'  );
 
 sub print {
@@ -1655,8 +1664,6 @@ requires 'compare';
   <h1>Real Examples</h1>
 
   <ul>
-    <li>Column and ColumnAlias both <em>do</em> ColumnLike</li>
-    <li>ColumnLike things can be used in certain parts of queries</li>
     <li>All queries <em>do</em> HasWhereClause</li>
     <li>Select <em>does</em> Comparable and Selectable (for subselects)</li>
     <li>A where clause requires its components to <em>do</em> Comparable</li>
@@ -1803,6 +1810,7 @@ use Moose;
 
 has bank =&gt; (
     is      =&gt; 'rw',
+    # THIS WILL NOT WORK
     <span class="wrong">default =&gt; Bank-&gt;new(
                    name =&gt; 'Spire FCU' ),</span>
 );</code></pre>
@@ -1825,22 +1833,6 @@ has packages =&gt; (
 </div>
 
 <div class="slide">
-  <h1>What if I Want to Share?</h1>
-
-  <pre><code>package Person;
-use Moose;
-
-my $highlander_bank =
-    Bank-&gt;new(
-        name =&gt; 'Clan MacLeod Trust' );
-
-has bank =&gt; (
-    is      =&gt; 'rw',
-    default =&gt; sub { $highlander_bank },
-);</code></pre>
-</div>
-
-<div class="slide">
   <h1>Builder</h1>
 
   <ul>
@@ -2045,15 +2037,7 @@ Person-&gt;new( <span class="wrong">shoes =&gt; Shoes-&gt;new</span> );</code></
 
   <ul>
     <li>By default, subclasses inherit attribute as-is</li>
-    <li>Can change some attribute parameters in subclasses
-      <ul>
-        <li>default</li>
-        <li>builder</li>
-        <li>required</li>
-        <li>lazy</li>
-        <li>others we've not yet covered</li>
-      </ul>
-    </li>
+    <li>Can change attribute parameters in subclasses</li>
   </ul>
 </div>   
 
@@ -2406,62 +2390,6 @@ around run</span> =&gt; sub {
 </div>
 
 <div class="slide">
-  <h1>Augment and Inner</h1>
-
-  <ul>
-    <li>Inverted <code>super</code></li>
-    <li>From least- to most-specific</li>
-    <li>Like Mason's autohandler feature</li>
-    <li>Grandparent to parent to child</li>
-    <li>Not allowed in roles</li>
-  </ul>
-</div>
-
-<div class="slide">
-  <h1>Augment and Inner</h1>
-
-  <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 { 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 { my $self = shift;
-          $self-&gt;tps_xml() . <span class="highlight">inner()</span> };</code></pre>
-</div>
-
-<div class="slide">
-  <h1>Augment and Inner</h1>
-
-  <ul>
-    <li>When we call <code>$tps-&gt;xml</code> ...
-      <ul>
-        <li><code>Document-&gt;xml</code></li>
-        <li><code>Report-&gt;xml</code></li>
-        <li><code>TPSReport-&gt;xml</code></li>
-      </ul>
-    </li>
-  </ul>
-</div>
-
-<div class="slide">
-  <h1>Augment and Inner Usage</h1>
-
-  <ul>
-    <li>Call <code>inner()</code> to "fill in the blank"</li>
-    <li>Requires designing for subclassing</li>
-    <li>Call <code>inner()</code> in the terminal class, just in case</li>
-  </ul>
-</div>
-
-<div class="slide">
   <h1>Method Modifiers Summary</h1>
 
   <ul>
@@ -2485,27 +2413,13 @@ extends 'Report';
         <li>alter parameters passed to the original method</li>
         <li>alter the return value of the original method</li>
         <li>not call the original method at all (or call a <em>different</em> method)</li>
+        <li>When using modifiers in a role, require the modified method</li>
       </ul>
     </li>
   </ul>
 </div>
 
 <div class="slide">
-  <h1>Method Modifiers Summary</h1>
-
-  <ul>
-    <li>When using modifiers in a role, require the modified method</li>
-    <li>Use <code>augment</code> and <code>inner</code> to invert the normal subclassing flow ...
-      <ul>
-        <li>Least- to most-specific (parents to children)</li>
-        <li>Build in "insertability" (stick more stuff in the "middle")</li>
-      </ul>
-    </li>
-    <li>Always call <code>inner</code> in the most specific subclass to allow for future extension</li>
-  </ul>
-</div>
-
-<div class="slide">
   <h1>Questions?</h1>
 </div>  
 
@@ -2587,15 +2501,12 @@ Item
   <h1>Bool</h1>
 
   <h2>True</h2>
-  <pre><code>1
-924.1
-'true'
-{}</code></pre>
+  <pre><code>1</code></pre>
 
   <h2>False</h2>
   <pre><code>0
-0.0
 '0'
+''
 undef</code></pre>
 
   <ul>
@@ -2724,7 +2635,7 @@ class_type 'DateTime';</code></pre>
   <h1>Subtype Shortcuts - <code>role_type</code></h1>
 
   <pre><code>use Moose::Util::TypeConstraints;
-role_type 'Printable';</coe></pre>
+role_type 'Printable';</code></pre>
 
 <hr />
 
@@ -3434,7 +3345,7 @@ has account =&gt; (
     isa     =&gt; 'BankAccount',
     handles =&gt; {
         receive_100 =&gt;
-            <span class="highlight">[ 'deposit', 100 ]</span>
+            <span class="highlight">[ 'deposit', 100 ]</span>,
         give_100    =&gt;
             <span class="highlight">[ 'withdraw', 100 ]</span>
     },
@@ -3568,7 +3479,7 @@ Iterate til this passes all its tests</pre>
 
   <ul>
     <li><strong>Not comprehensive</strong></li>
-    <li>152 MooseX distributions on CPAN as of 02/02/2010</li>
+    <li>188 MooseX distributions on CPAN as of 02/03/2011</li>
     <li>Some of them are crap</li>
   </ul>
 </div>
@@ -3589,7 +3500,7 @@ Iterate til this passes all its tests</pre>
   <h1>MooseX::Declare</h1>
 
 <pre><code>use MooseX::Declare;
-use 5.10.0; # for say
+use 5.12.0; # for say
 
 class Person {
     has greeting =&gt;
@@ -3608,7 +3519,7 @@ class Person {
     <li>Still experimental-ish, but seeing more and more use</li>
     <li><strong>Not</strong> a source filter!</li>
     <li>Hooks into the Perl parser rather than filtering all your code</li>
-    <li>But not supported by <code>PPI</code>, <code>perltidy</code>, etc.</li> (yet?)
+    <li>But not supported by <code>PPI</code>, <code>perltidy</code>, etc. (yet?)</li>
   </ul>
 </div>