From: Dave Rolsky Date: Wed, 5 Jun 2013 16:40:38 +0000 (-0500) Subject: Tweak formatting of type shortcut slides X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2Fmoose-presentations.git;a=commitdiff_plain;h=e284f2b4abe2bfdb65884c34b2724401db14371f Tweak formatting of type shortcut slides --- diff --git a/moose-class/slides/index.html b/moose-class/slides/index.html index e7541a7..056e115 100644 --- a/moose-class/slides/index.html +++ b/moose-class/slides/index.html @@ -2600,11 +2600,15 @@ has start_date => (

Subtype Shortcuts - class_type

use Moose::Util::TypeConstraints;
-class_type 'DateTime';
+ +class_type 'DateTime'; + +
-
subtype     'DateTime',
+

+subtype     'DateTime',
     as      'Object',
     where   { $_->isa('DateTime') },
     message { ... };
@@ -2614,11 +2618,15 @@ class_type 'DateTime';

Subtype Shortcuts - role_type

use Moose::Util::TypeConstraints;
-role_type 'Printable';
+ +role_type 'Printable'; + +
-
subtype 'Printable',
+

+subtype 'Printable',
     as  'Object',
     where
         { Moose::Util::does_role(
@@ -2630,11 +2638,15 @@ role_type 'Printable';

Subtype Shortcuts - duck_type

use Moose::Util::TypeConstraints;
-duck_type Car => qw( run break_down );
+ +duck_type Car => qw( run break_down ); + +

-
subtype 'Car',
+

+subtype 'Car',
     as      'Object',
     where   { all { $_->can($_) }
               qw( run break_down ) },
@@ -2645,11 +2657,15 @@ duck_type Car => qw( run break_down );

Subtype Shortcuts - enum

use Moose::Util::TypeConstraints;
-enum Color => qw( red blue green );
+ +enum Color => qw( red blue green ); + +

-
my %ok = map { $_ => 1 }
+

+my %ok = map { $_ => 1 }
              qw( red blue green );
 
 subtype     'Color'
@@ -2664,7 +2680,9 @@ subtype     'Color'
   
package Person;
 
 my $posint =
-    subtype as 'Int', where { $_ > 0 };
+    subtype
+        as 'Int',
+        where { $_ > 0 };
 
 has size => (
     is  => 'ro',