X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=moose-class%2Fslides%2Findex.html;h=22cef8e555d859c71e0ceec4a9b99d002de5d6d2;hb=b8e08963464459d4f6dd8ccb03f74bf17813273f;hp=7495ce3a59f7a852ffc01feef6b5df2d1732dbac;hpb=2ab00dc1aac87632b7b4524aa22a0810d7e451e9;p=gitmo%2Fmoose-presentations.git diff --git a/moose-class/slides/index.html b/moose-class/slides/index.html index 7495ce3..22cef8e 100644 --- a/moose-class/slides/index.html +++ b/moose-class/slides/index.html @@ -52,7 +52,7 @@ img#me05 {top: 43px;left: 36px;}

Introduction to Moose

-

git://git.moose.perl.org/moose-presentations.git

+

Dave Rolsky

@@ -71,7 +71,8 @@ img#me05 {top: 43px;left: 36px;}
@@ -218,7 +219,7 @@ use Moose; @@ -300,8 +301,8 @@ has blog_uri => ( handles => { 'blog_host' => 'host' }, ); -$person->blog_host; -# really calls $person->blog_uri->host +$person->blog_host; +# really calls $person->blog_uri->host
@@ -842,6 +843,16 @@ has last_name => ( );
+
+

More Why Moose?

+ + +
+

Part 1: Moose Classes

@@ -882,7 +893,7 @@ use Moose;

BUILDARGS

@@ -1096,8 +1110,7 @@ has first_name => ( is => 'ro' ); my $person = Person->new( first_name => 'Dave' ); -$person->first_name('Stevan'); -print $person->first_name; # Dave +$person->first_name('Stevan'); # dies @@ -1116,7 +1129,7 @@ print $person->first_name; # Dave use Moose; # true -Person->can('extends'); +Person->can('extends'); + + +
+

Basic Attributes Summary

+ +
-

What is a Method Modifier

+

What Are Method Modifiers For?

@@ -2362,7 +2347,7 @@ after clear_password => sub { $self->$orig( $self->_munge_insert(@_) ); - $new_user->_assign_uri; + $new_user->_assign_uri; return $new_user; }; @@ -2426,6 +2411,7 @@ around run => sub { @@ -2434,19 +2420,21 @@ around run => sub {

Augment and Inner

- 
package Document;
+  
package Document;
 
 sub xml { '<doc>' . inner() . '</doc>' }
 
 package Report;
 extends 'Document';
 augment xml =>
-    sub { title() . inner() . summary() };
+    sub { my $self = shift;
+          $self->title() . inner() . $self->summary() };
 
 package TPSReport;
 extends 'Report';
 augment xml =>
-    sub { tps_xml() . inner() };

+    sub { my $self = shift;
+          $self->tps_xml() . inner() };
@@ -2568,11 +2556,11 @@ Item Undef Defined Value - Num - Int - Str - ClassName - RoleName + Str + Num + Int + ClassName + RoleName
@@ -2590,7 +2578,7 @@ Item CodeRef RegexpRef GlobRef - FileHandle + FileHandle Object @@ -2621,6 +2609,7 @@ undef @@ -2721,9 +2710,11 @@ 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 { ... };
@@ -2733,10 +2724,12 @@ subtype 'DateTime',

Subtype Shortcuts - role_type

use Moose::Util::TypeConstraints;
-role_type 'Printable';
+role_type 'Printable';
-subtype 'Printable', - as 'Object', +
+ +
subtype 'Printable',
+    as  'Object',
     where
         { Moose::Util::does_role(
               $_, 'Printable' ) },
@@ -2747,9 +2740,11 @@ subtype '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 ) },
@@ -2760,12 +2755,14 @@ subtype 'Car',
   
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'
+subtype     'Color'
     as      'Str',
     where   { $ok{$_} },
     message { ... };

@@ -2881,6 +2878,19 @@ no Moose;
 
 
 

+  
Questions So Far?

+
  
+
+

+  
Exercises

+
+  
# cd exercises
+# perl bin/prove -lv t/05-types.t
+
+Iterate til this passes all its tests

+

+
+

   
Typed Methods (Low-tech)

 
   
package Person;
@@ -3011,9 +3021,9 @@ coerce ArrayOfInt
 
 use MyApp::Types qw( ArrayOfInt );
 
-has transaction_history => (
-    is  => 'rw',
-    isa => ArrayOfInt,
+has transaction_history => (
+    is  => 'rw',
+    isa => ArrayOfInt,
 );

 

 
@@ -3023,7 +3033,7 @@ has transaction_history => (
   
    
     
  • Type names are exported functions, catches typos early
    • 
     
  • Types must be pre-declared
    • 
-    
  • Types are stored with namespaces internally, but externally are short
    • 
+    
  • Types are stored with namespaces internally, but you use short names
    • 
     
  • Import existing Moose types as functions from MooseX::Types::Moose
    • 
     
  • Still need string names for things like ArrayRef['Email::Address']
    • 
   

@@ -3036,7 +3046,7 @@ has transaction_history => (
     
  • Catches typos at compile time
    • 
     
  • Automatic namespacing
    • 
     
  • One more thing to install and learn
    • 
-    
  • Every name gets types twice (declared and then defined)
    • 
+    
  • Every name is typed twice (declared and then defined)
    • 
     
  • Still stuck with strings when referring to class or role names
    • 
     
  • Coercion gotcha from earlier still applies to types exported from MooseX::Types::Moose
    • 
   
@@ -3057,15 +3067,6 @@ has transaction_history => (
   
    Questions?
    
   
 
-
    
-  
    Exercises
    
-
-  
    # cd exercises
-# perl bin/prove -lv t/05-types.t
-
-Iterate til this passes all its tests
    
-
    
-
 
    
   
    Part 6: Advanced Attributes
    
 
    
@@ -3163,7 +3164,7 @@ $alice->friend($bob);
    
 
   
    after salary_level => {
     my $self = shift;
-    return unless @_;
+    return unless @_;
     $self->clear_salary;
 };
    
 
@@ -3175,11 +3176,22 @@ $alice->friend($bob);
    has salary_level => (
     is      => 'rw',
-    trigger => sub { $_[0]->clear_salary },
+    trigger =>
+        sub { $_[0]->clear_salary },
 );
    +

    Trigger Arguments

    + + +
    + +

    Delegation

    @@ -3358,7 +3371,7 @@ has history => ( use Moose; has _favorite_numbers => ( traits => [ 'Array' ], - is => 'ro', + is => 'bare', isa => 'ArrayRef[Int]', default => sub { [] }, init_arg => undef, @@ -3396,7 +3409,7 @@ print "$_\n"
  • Bool - set, toggle, ...
  • Hash - get, set, ...
  • Array - already saw it
    • -
  • Code - execute, that's it
    • +
  • Code - execute and execute_method
    • @@ -3461,7 +3474,7 @@ $person->account->deposit(100);

    Traits and Metaclasses

    @@ -3519,15 +3532,12 @@ print Person->meta
  • Use weak_ref to avoid circular references
  • Use trigger to do an action post-attribute write
  • Use delegations to hide "internal" objects
    • +
  • Use native delegations to treat Perl types as objects
  • Traits and metaclasses let you extend Moose's core attribute features
    • -

    Questions?

    -
    - -

    Exercises

    # cd exercises
@@ -3537,12 +3547,20 @@ print Person->meta
 Iterate til this passes all its tests
    -
    -

    Part 7: Introspection

    +
    +

    CYOA

    + +

    + If there is time, keep going ... +

    + +

    + Otherwise, jump to slide 269 ... +

    -

    Part 8: A Brief Tour of MooseX

    +

    Bonus: A Brief Tour of MooseX

    @@ -3550,7 +3568,7 @@ Iterate til this passes all its tests
    • Not comprehensive
      • -
    • 128 MooseX distributions on CPAN as of 09/24/2009
      • +
    • 152 MooseX distributions on CPAN as of 02/02/2010
    • Some of them are crap
    @@ -3559,11 +3577,11 @@ Iterate til this passes all its tests

    Already Mentioned Several

    @@ -3574,8 +3592,8 @@ Iterate til this passes all its tests use 5.10.0; # for say class Person { - has greeting - => ( is => 'ro', isa => 'Str' ); + has greeting => + ( is => 'ro', isa => 'Str' ); method speak { say $self->greeting; @@ -3590,6 +3608,7 @@ class Person {
  • Still experimental-ish, but seeing more and more use
  • Not a source filter!
  • Hooks into the Perl parser rather than filtering all your code
    • +
  • But not supported by PPI, perltidy, etc.
    • (yet?) @@ -3597,7 +3616,7 @@ class Person {

    MooseX::StrictConstructor

    @@ -3659,7 +3678,7 @@ use Moose; has file => ( is => 'ro', required => 1 ); has filters => - ( is => 'ro', isa => 'Str' ); + ( is => 'ro', isa => 'ArrayRef[Str]' ); sub run { ... } @@ -3675,7 +3694,7 @@ sub run { ... } use App::CLI; -App::CLI->new_with_options()->run(); +App::CLI->new_with_options()->run(); 
    $ myapp-cli \
    --file foo \
@@ -3735,12 +3754,21 @@ with HasCollection => { type => 'Int' };

    Questions?

    -
    -

    Part 9: Writing Moose Extensions

    -
    +
    +

    Moose-using Modules

    -
    -

    The End

    +

    + For further reading, a few modules which use Moose ... +

    + +
    @@ -3753,10 +3781,14 @@ with HasCollection => { type => 'Int' };
  • mailing list - moose@perl.org
  • Slides and exercises are in Moose's git repo:
    - git://jules.scsys.co.uk/gitmo/moose-presentations
    • + git://jules.scsys.co.uk/gitmo/moose-presentations
    +
    +

    The End

    +
    +