X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=moose-class%2Fslides%2Findex.html;h=2f3c9d3701fb1eb110c091de598ec297988d6942;hb=cec1db40741e03ce26e19ef15458a3230aa8dff4;hp=3266122613b555693f6c76648a6974cc8bd86ee9;hpb=255fe70078ad34620996c42945b563a5471cceee;p=gitmo%2Fmoose-presentations.git diff --git a/moose-class/slides/index.html b/moose-class/slides/index.html index 3266122..2f3c9d3 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
@@ -892,8 +893,8 @@ use Moose;

BUILDARGS

@@ -951,11 +952,11 @@ sub BUILD { 
Person->new(@_)
-
    +
    1. Calls Person->BUILDARGS(@_) to turn @_ into a hashref
    2. Blesses a reference
    3. Populates attributes based on the hashref from #1
      4. -
    4. Calls $new_object->BUILDALL($constructor_args) +
    5. Calls $new_object->BUILDALL($constructor_args)
      ... which calls all BUILD methods
    6. Returns the object
    @@ -967,6 +968,7 @@ sub BUILD {
@@ -976,6 +978,7 @@ sub BUILD { @@ -1039,6 +1042,7 @@ extends 'LWP'; @@ -1050,7 +1054,7 @@ use Moose; extends 'Person'; -override work => sub { +override work => sub { my $self = shift; die "Pay me first" @@ -1066,6 +1070,7 @@ use Moose;
  • Mostly like $self->SUPER::work(@_)
  • But cannot change @_!
  • Binds the parent's method at compile time
    • +
  • Parent determined by checking Child->meta()->superclasses()
    • @@ -1106,8 +1111,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 @@ -1126,7 +1130,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?

    @@ -2372,7 +2348,7 @@ after clear_password => sub { $self->$orig( $self->_munge_insert(@_) ); - $new_user->_assign_uri; + $new_user->_assign_uri; return $new_user; }; @@ -2436,6 +2412,7 @@ around run => sub { @@ -2444,19 +2421,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() };
    @@ -2578,11 +2557,11 @@ Item Undef Defined Value - Str - Num - Int - ClassName - RoleName + Str + Num + Int + ClassName + RoleName
    @@ -2600,7 +2579,7 @@ Item CodeRef RegexpRef GlobRef - FileHandle + FileHandle Object @@ -2609,15 +2588,12 @@ Item

    Bool

    True

    - 
    1
-924.1
-'true'
-{}
    + 
    1

    False

    0
-0.0
 '0'
+''
 undef
    @@ -3068,15 +3065,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

    @@ -3174,7 +3162,7 @@ $alice->friend($bob);     
    after salary_level => {
     my $self = shift;
-    return unless @_;
+    return unless @_;
     $self->clear_salary;
 };
    @@ -3186,11 +3174,22 @@ $alice->friend($bob);     
    has salary_level => (
     is      => 'rw',
-    trigger => sub { $_[0]->clear_salary },
+    trigger =>
+        sub { $_[0]->clear_salary },
 );
    +

    Trigger Arguments

    + + +
    + +

    Delegation

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

    Traits and Metaclasses

    @@ -3530,15 +3530,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
@@ -3548,12 +3545,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

    @@ -3561,7 +3566,7 @@ Iterate til this passes all its tests
    • Not comprehensive
      • -
    • 128 MooseX distributions on CPAN as of 09/24/2009
      • +
    • 177 MooseX distributions on CPAN as of 09/21/2010
    • Some of them are crap
    @@ -3671,7 +3676,7 @@ use Moose; has file => ( is => 'ro', required => 1 ); has filters => - ( is => 'ro', isa => 'Str' ); + ( is => 'ro', isa => 'ArrayRef[Str]' ); sub run { ... }
    @@ -3687,7 +3692,7 @@ sub run { ... } use App::CLI; -App::CLI->new_with_options()->run(); +App::CLI->new_with_options()->run(); 
    $ myapp-cli \
    --file foo \
@@ -3747,12 +3752,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 ... +

    + +
    @@ -3765,10 +3779,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://git.moose.perl.org/moose-presentations/moose.git
    +
    +

    The End

    +
    +