From: Dave Rolsky <autarch@urth.org>
Date: Fri, 11 Sep 2009 21:09:17 +0000 (-0500)
Subject: Lots of slide tweaks to work nicely on my 1024x768 laptop
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=debc93f8ce3e39764395e2eb15da98465c9447b3;p=gitmo%2Fmoose-presentations.git

Lots of slide tweaks to work nicely on my 1024x768 laptop

Some html fixes and minor text tweaks

Added the CC image so we don't need a live net connection to display it
---

diff --git a/moose-class/slides/index.html b/moose-class/slides/index.html
index 09cec1e..e1e1445 100644
--- a/moose-class/slides/index.html
+++ b/moose-class/slides/index.html
@@ -40,7 +40,7 @@ img#me05 {top: 43px;left: 36px;}
 <div id="header"></div>
 <div id="footer">
   <div id="license">
-    <a rel="license" href="http://creativecommons.org/licenses/by-sa/3.0/us/"><img alt="Creative Commons License" style="border-width:0" src="http://i.creativecommons.org/l/by-sa/3.0/us/88x31.png" /></a>
+    <a rel="license" href="http://creativecommons.org/licenses/by-sa/3.0/us/"><img alt="Creative Commons License" style="border-width:0" src="ui/creative-commons.png" /></a>
     <br /><span xmlns:dc="http://purl.org/dc/elements/1.1/" href="http://purl.org/dc/dcmitype/Text" property="dc:title" rel="dc:type">Introduction to Moose</span> by <span xmlns:cc="http://creativecommons.org/ns#" property="cc:attributionName">David Rolsky</span> is licensed under a <a rel="license" href="http://creativecommons.org/licenses/by-sa/3.0/us/">Creative Commons Attribution-Share Alike 3.0 United States License</a>.
   </div>
 
@@ -235,7 +235,10 @@ after  'foo'
     my @return =
         $self-&gt;$real_foo( @_, bar =&gt; 42 );
 
-    return ( @return, 'modify return values' );
+    return (
+        @return,
+        'modify return values'
+    );
 };</code></pre>
 </div>
 
@@ -284,10 +287,10 @@ use Moose;
 has blog_uri =&gt; (
     is      =&gt; 'rw',
     isa     =&gt; 'URI',
-    <span class="highlight">handles =&gt; { 'blog_hostname' =&gt; 'host' },</span>
+    <span class="highlight">handles =&gt; { 'blog_host' =&gt; 'host' },</span>
 );
 
-<span class="highlight">$person->blog_hostname;</span>
+<span class="highlight">$person->blog_host;</span>
 # really calls $person->blog_uri->host</code></pre>
 </div>
 
@@ -296,7 +299,7 @@ has blog_uri =&gt; (
 
   <ul>
     <li>Moose creates <code>new()</code> for you</li>
-    <li>Provide an optional <code>BUILDARGS()</code> and <code>BUILD()</code></li>
+    <li>Provide an optional <code>BUIDARGS()</code> and <code>BUILD()</code></li>
   </ul>
 </div>
 
@@ -888,7 +891,6 @@ sub BUILDARGS {
     if ( @_ == 1 &amp;&amp; ! ref $_[0] ) {
         <span class="highlight">return { ssn =&gt; $_[0] };</span>
     }
-
     <span class="highlight">return $class-&gt;SUPER::BUILDARGS(@_)</span>;
 }
 
@@ -1029,7 +1031,8 @@ use Moose;
 <span class="incremental">override</span> work =&gt; sub {
     my $self = shift;
 
-    die "Pay me first" unless $self-&gt;got_paid;
+    die "Pay me first"
+        unless $self-&gt;got_paid;
     <span class="incremental">super();</span>
 }<span class="incremental">;</span></code></pre>
 </div>
@@ -1127,7 +1130,7 @@ Person->can('extends');</code></pre>
 
   <ul>
     <li><code>no Moose</code> at the end of a package is a best practice</li>
-    <li>Or <code>namespace::clean</code> at the top</li>
+    <li>Or <code>use namespace::autoclean</code> at the top</li>
     <li>Just do it</li>
   </ul>
 </div>
@@ -1212,11 +1215,10 @@ Iterate til this passes all its tests</pre>
 </div>
 
 <div class="slide">
-  <h1>Roles Can Have State <strong>and</strong> Behavior</h1>
+  <h1>Roles - State <strong>and</strong> Behavior</h1>
 
   <pre><code>package HasPermissions;
 use Moose::Role;
-
 <span class="current incremental"># state
 has access_level =&gt; ( is =&gt; 'rw' );</span>
 
@@ -1225,7 +1227,8 @@ sub can_access {
     my $self     = shift;
     my $required = shift;
 
-    return $self-&gt;access_level &gt;= $required;
+    return $self-&gt;access_level
+             &gt;= $required;
 }</span></code></pre>
 
 </div>
@@ -1269,8 +1272,8 @@ with 'HasPermissions';</code></pre>
   <h1>Classes Consume Roles</h1>
 
 <pre><code>my $person = Person-&gt;new(
-    first_name => 'Kenichi',
-    last_name => 'Asai',
+    first_name   =&gt; 'Kenichi',
+    last_name    =&gt; 'Asai',
     access_level =&gt; 42,
 );
 
@@ -1326,7 +1329,7 @@ sub print {
 
 # or ...
 
-if ( Person-&gt;meta-&gt;does('Printable') ) { ... }</code></pre>
+Person-&gt;meta-&gt;does('Printable')</code></pre>
 
 </div>
 
@@ -1392,10 +1395,10 @@ use Moose;
 use Moose;
 
 <span class="highlight">with 'IsFragile' =>
-         { alias =>
+         { -alias =>
                { break => 'break_bone' } },
      'CanBreakdance' =>
-         { alias =>
+         { -alias =>
                { break => 'break_it_down' } };</span></code></pre>
 
   <ul>
@@ -1411,13 +1414,13 @@ use Moose;
 use Moose;
 
 <span class="highlight">with 'IsFragile' =>
-         { alias =>
+         { -alias =>
                { break => 'break_bone' },
-           exclude => 'break' },
+           -excludes => 'break' },
      'CanBreakdance' =>
-         { alias =>
+         { -alias =>
                { break => 'break_dance' },
-           exclude => 'break' };</span></code></pre>
+           -excludes => 'break' };</span></code></pre>
 </div>
 
 <div class="slide">
@@ -1590,7 +1593,8 @@ has [ 'left', 'right' ] => (
   <pre><code>use Moose::Util qw( apply_all_roles );
 
 my $fragile_person = Person->new( ... );
-apply_all_roles( $fragile_person, 'IsFragile' );</code></pre>
+apply_all_roles( $fragile_person,
+                 'IsFragile' );</code></pre>
 
   <ul>
     <li>Does not change the <code>Person</code> class</li>
@@ -1794,7 +1798,7 @@ has bank =&gt; (
 </div>
 
 <div class="slide">
-  <h1>Default as a Subroutine Reference</h1>
+  <h1>Subroutine Reference Default</h1>
 
   <ul>
     <li>Called as a method on the object</li>
@@ -1867,7 +1871,8 @@ has bank =&gt; (
 
 sub _build_bank {
     my $self = shift;
-    return Bank-&gt;new( name => 'Spire FCU' );
+    return Bank-&gt;new(
+        name => 'Spire FCU' );
 }</code></pre>
 </div>
 
@@ -1906,7 +1911,7 @@ has bank =&gt; (
 </div>
 
 <div class="slide">
-  <h1>Lazy, Good for Nothing Attributes</h1>
+  <h1>Lazy, Good for Nothin' Attributes</h1>
 
   <ul>
     <li>Normally, defaults are generated during object construction</li>
@@ -2190,7 +2195,8 @@ has first_name =&gt; (
   <h1>Exercises</h1>
 
   <pre># cd exercises
-# perl bin/prove -lv t/03-basic-attributes.t
+# perl bin/prove -lv \
+      t/03-basic-attributes.t
 
 Iterate til this passes all its tests</pre>
 </div>
@@ -2259,7 +2265,8 @@ before work =&gt; sub {
     my $self = shift;
     return unless $DEBUG;
 
-    warn "Called work on ", $self->full_name,
+    warn "Called work on ",
+         $self-&gt;full_name,
          "with the arguments: [@_]\n";
 };</code></pre>
 </div>    
@@ -2291,19 +2298,17 @@ after work =&gt; sub {
 </div>
 
 <div class="slide">
-  <h1>Other Uses Example</h1>
+  <h1>More Modifier Examples</h1>
 
   <pre><code>has password =&gt; (
      is      =&gt; 'rw',
      clearer =&gt; 'clear_password',
 );
-
 has hashed_password =&gt; (
      is      =&gt; 'ro',
      builder =&gt; '_build_hashed_password',
      clearer =&gt; '_clear_hashed_password',
 );
-
 after clear_password =&gt; sub {
     my $self = shift;
     $self-&gt;_clear_hashed_password;
@@ -2344,7 +2349,6 @@ after clear_password =&gt; sub {
             $self-&gt;_munge_insert(@_) );
 
     $new_user->_assign_uri;
-
     return $new_user;
 };</code></pre>
 </div>
@@ -2422,13 +2426,11 @@ 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() };
 
 package TPSReport;
 extends 'Report';
-
 <span class="highlight">augment xml</span> =&gt;
     sub { tps_xml() . <span class="highlight">inner()</span> };</code></pre>
 </div>
@@ -2509,7 +2511,8 @@ extends 'Report';
   <h1>Exercises</h1>
 
   <pre># cd exercises
-# perl bin/prove -lv t/04-method-modifiers.t
+# perl bin/prove -lv \
+      t/04-method-modifiers.t
 
 Iterate til this passes all its tests</pre>
 </div>
@@ -2663,8 +2666,9 @@ undef</code></pre>
 <span class="incremental current">subtype 'PositiveInt',</span>
     <span class="incremental">as      'Int',</span>
     <span class="incremental">where   { $_ &gt; 0 },</span>
-    <span class="incremental">message { "The value you provided ($_)"
-              . " was not a positive number." };</span>
+    <span class="incremental">message
+        { "The value you provided ($_)"
+          . " was not a positive int." };</span>
 
 has size =&gt; (
     is  =&gt; 'ro',
@@ -2743,7 +2747,9 @@ subtype 'Car',
   <pre><code>use Moose::Util::TypeConstraints;
 enum Color =&gt; qw( red blue green ) );
 
-my %ok = map { $_ =&gt; 1 } qw( red blue green );
+my %ok = map { $_ =&gt; 1 }
+             qw( red blue green );
+
 subtype 'Color'
     as      'Str',
     where   { $ok{$_} },
@@ -2775,9 +2781,13 @@ has size =&gt; (
 
 subtype 'UCStr',
     as    'Str',
-    where { ! /[a-z]/ };
+    where { ! /[a-z]/ };</code></pre>
+</div>
+
+<div class="slide">
+  <h1>Coercions</h1>
 
-<span class="incremental current">coerce 'UCStr',</span>
+  <pre><code><span class="incremental current">coerce 'UCStr',</span>
     <span class="incremental">from 'Str',</span>
     <span class="incremental">via  { uc };</span>
 
@@ -2825,8 +2835,6 @@ coerce 'My::DateTime',
 
   <pre><code>package Person;
 
-use Moose::Util::TypeConstraints;
-
 has height =&gt; (
     is  =&gt; 'rw',
     <span class="highlight">isa =&gt; 'Num',</span>
@@ -2875,7 +2883,6 @@ sub work {
                 { isa     =&gt; 'Bool',
                   default =&gt; 0 },
         );</span>
-
     ...
 }</code></pre>
 </div>
@@ -2928,7 +2935,6 @@ sub work {
   <h1>Namespace Fix</h1>
 
   <pre><code>use Moose::Util::TypeConstraints;
-
 subtype <span class="highlight">'MyApp::Type::DateTime',</span>
     as 'DateTime';
 
@@ -3108,7 +3114,8 @@ $alice-&gt;friend($bob);</code></pre>
 use Moose;
 
 has name   =&gt; ( is =&gt; 'ro' );
-has friend =&gt; ( is =&gt; 'rw', <span class="highlight">weak_ref =&gt; 1</span> );
+has friend =&gt; ( is       =&gt; 'rw',
+                <span class="highlight">weak_ref =&gt; 1</span> );
 
 my $alice = Person-&gt;new( name =&gt; 'Alice' );
 my $bob   = Person-&gt;new( name =&gt; 'Bob' );
@@ -3227,7 +3234,6 @@ has lungs =&gt; (
 
   <pre><code>package Person;
 use Moose;
-
 has account =&gt; (
     is      =&gt; 'ro',
     isa     =&gt; 'BankAccount',
@@ -3275,7 +3281,6 @@ has name =&gt; (
 
   <pre><code>package Auditor;
 use Moose::Role;
-
 sub record_change  { ... }
 sub change_history { ... }
 
@@ -3316,7 +3321,6 @@ has history =&gt; (
 
   <pre><code>package Person;
 use Moose;
-
 has _favorite_numbers =&gt; (
     traits   =&gt; [ 'Array' ],
     is       =&gt; 'ro',
@@ -3328,10 +3332,6 @@ has _favorite_numbers =&gt; (
         add_favorite_number =&gt; 'push',
       },</span>
 );</code></pre>
-
-  <ul>
-    <li>Automatically defaults to <code>[]</code></li>
-  </ul>
 </div>
 
 <div class="slide">
@@ -3339,7 +3339,6 @@ has _favorite_numbers =&gt; (
 
   <pre><code>package Stack;
 use Moose;
-
 has depth =&gt; (
     traits   =&gt; [ 'Counter' ],
     is       =&gt; 'ro',
@@ -3397,7 +3396,6 @@ has ssn =&gt; (
     isa    =&gt; 'Str',
     <span class="highlight">label  =&gt; 'Social Security Number',</span>
 );
-
 print <span class="highlight">Person-&gt;meta
             -&gt;get_attribute('ssn')-&gt;label;</span></code></pre>
 </div>
@@ -3416,7 +3414,6 @@ has ssn =&gt; (
     isa       =&gt; 'Str',
     <span class="highlight">label     =&gt; 'Social Security Number',</span>
 );
-
 print <span class="highlight">Person-&gt;meta
             -&gt;get_attribute('ssn')-&gt;label;</span></code></pre>
 </div>
@@ -3451,7 +3448,8 @@ print <span class="highlight">Person-&gt;meta
   <h1>Exercises</h1>
 
   <pre># cd exercises
-# perl bin/prove -lv t/06-advanced-attributes.t
+# perl bin/prove -lv \
+      t/06-advanced-attributes.t
 
 Iterate til this passes all its tests</pre>
 </div>
diff --git a/moose-class/slides/ui/creative-commons.png b/moose-class/slides/ui/creative-commons.png
new file mode 100644
index 0000000..f0a944e
Binary files /dev/null and b/moose-class/slides/ui/creative-commons.png differ