Remove ColumnLike example from role examples

[gitmo/moose-presentations.git] / moose-class / slides / index.html

diff --git a/moose-class/slides/index.html b/moose-class/slides/index.html
index 1dd1a48..6c0e0b0 100644 (file)
--- a/moose-class/slides/index.html
+++ b/moose-class/slides/index.html
@@ -1309,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">
@@ -1342,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">
@@ -1353,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 {
@@ -1658,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>