X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=moose-class%2Fslides%2Findex.html;h=b3f57f681376337f550f7a3624631f0a305fcc1c;hb=7f7e655a677ae4e66c2bf208a9898c796a12e779;hp=84903fe9fffaae0c8fd9597a126c0cb73c65a317;hpb=9186987ba42688c4ca9947b882f73ebf837ffcac;p=gitmo%2Fmoose-presentations.git diff --git a/moose-class/slides/index.html b/moose-class/slides/index.html index 84903fe..b3f57f6 100644 --- a/moose-class/slides/index.html +++ b/moose-class/slides/index.html @@ -40,7 +40,7 @@ img#me05 {top: 43px;left: 36px;} @@ -208,7 +219,7 @@ use Moose; @@ -235,7 +246,10 @@ after 'foo' my @return = $self->$real_foo( @_, bar => 42 ); - return ( @return, 'modify return values' ); + return ( + @return, + 'modify return values' + ); }; @@ -262,7 +276,7 @@ has weight => ( ); # kaboom -Person->new( weight => 'fat' ); +Person->new( weight => 'heavy' );
@@ -284,11 +298,11 @@ use Moose; has blog_uri => ( is => 'rw', isa => 'URI', - handles => { 'blog_hostname' => 'host' }, + handles => { 'blog_host' => 'host' }, ); -$person->blog_hostname; -# really calls $person->blog_uri->host +$person->blog_host; +# really calls $person->blog_uri->host
@@ -341,7 +355,7 @@ has blog_uri => (

Why Moose?

@@ -829,6 +843,16 @@ has last_name => ( ); +
+

More Why Moose?

+ + +
+

Part 1: Moose Classes

@@ -866,10 +890,105 @@ use Moose;
+

BUILDARGS

+ + +
+ +
+

BUILDARGS Example

+ + 
package Person;
+use Moose;
+
+sub BUILDARGS {
+    my $class = shift;
+
+    if ( @_ == 1 && ! ref $_[0] ) {
+        return { ssn => $_[0] };
+    }
+    return $class->SUPER::BUILDARGS(@_);
+}
+
+Person->new('123-45-6789')
+
+ +
+

BUILD

+ + +
+ +
+

BUILD Example

+ + 
package Person;
+use Moose;
+
+sub BUILD {
+    my $self = shift;
+
+    if ( $self->country_of_residence
+         eq 'USA' ) {
+        die 'All US residents'
+            . ' must have an SSN'
+            unless $self->has_ssn;
+    }
+}
+
+ +
+

Object Construction a la Moose

+ + 
Person->new(@args)
+ +
    +
  1. Calls Person->BUILDARGS(@args) to turn @args into a hashref
    2. +
  2. Blesses a reference
    3. +
  3. Populates attributes based on the hashref from #1
    4. +
  4. Calls $new_object->BUILDALL($constructor_args) +
    ... which calls all BUILD methods
    5. +
  5. Returns the object
    6. +
+
+ +
+

The Object is Opaque

+ + +
+ +
+

DEMOLISH

+ + +
+ +

extends

package Employee;
@@ -913,33 +1032,35 @@ extends 'LWP';
  • No DEMOLISH()
    • -
  • But see MooseX::NonMoose for a workaround
    • +
  • But MooseX::NonMoose fixes all of this
    • -

    overrides and super

    +

    override and super

    -

    overrides and super

    +

    override and super

    package Employee;
 use Moose;
 
 extends 'Person';
 
-overrides work => sub {
+override work => sub {
     my $self = shift;
 
-    die "Pay me first" unless $self->got_paid;
-    super();
-};
    + die "Pay me first" + unless $self->got_paid; + super(); +};
    @@ -948,12 +1069,13 @@ use Moose;
    -

    Attributes (Part 1)

    +

    Minimal Attributes

    @@ -1009,7 +1130,7 @@ print $person->first_name; # Dave use Moose; # true -Person->can('extends'); +Person->can('extends'); @@ -2777,21 +3437,252 @@ print Person->meta

    Exercises

    # 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
    -
    -

    Part 7: Introspection

    +
    +

    CYOA

    + +

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

    + +

    + Otherwise, jump to slide 269 ... +

    -

    Part 8: A Tour of MooseX

    +

    Bonus: A Brief Tour of MooseX

    +
    + +
    +

    Notable MX Modules on CPAN

    + +
      +
    • Not comprehensive
      • +
    • 188 MooseX distributions on CPAN as of 02/03/2011
      • +
    • Some of them are crap
      • +
    +
    + +
    +

    Already Mentioned Several

    + +
      +
    • MooseX::NonMoose - best solution for subclassing non-Moose parents
      • +
    • MooseX::Declare - real Perl 5 OO
      • +
    • MooseX::FollowPBP and MooseX::SemiAffordanceAccessor
      • +
    • MooseX::Params::Validate and MooseX::Method::Signatures
      • +
    • MooseX::Types
      • +
    +
    + +
    +

    MooseX::Declare

    + +
    use MooseX::Declare;
+use 5.12.0; # for say
+
+class Person {
+    has greeting =>
+        ( is => 'ro', isa => 'Str' );
+
+    method speak {
+        say $self->greeting;
+    }
+}
    +
    + +
    +

    MooseX::Declare

    + +
      +
    • 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?)
      • +
    +
    + +
    +

    MooseX::StrictConstructor

    + +
      +
    • By default, unknown constructor arguments are ignored
      • +
    • MX::StrictConstructor turns these into an error
      • +
    +
    + +
    +

    MooseX::StrictConstructor

    + + 
    package Person;
+
+use Moose;
+use MooseX::StrictConstructor;
+
+has name => ( is => 'ro' );
+
+Person->new
+    ( nane => 'Ringo Shiina' ); # kaboom
    +
    + +
    +

    MooseX::Traits

    + +
      +
    • Combines object construction and role application
      • +
    • Makes it easy to create one-off customized objects
      • +
    +
    + +
    +

    MooseX::Traits

    + + 
    package MyApp::Thingy;
+use Moose;
+
+with 'MooseX::Traits';
+
+my $thing =
+    MyApp::Thingy->new_with_traits
+        ( traits => [ 'Foo', 'Bar' ],
+          size   => 42 );
    +
    + +
    +

    MooseX::Getopt

    + +
      +
    • Makes command-line interface programs easy!
      • +
    • Construct an object from CLI arguments
      • +
    +
    + +
    +

    MooseX::Getopt

    + + 
    package App::CLI;
+use Moose;
+
+with 'MooseX::Getopt';
+
+has file    =>
+    ( is => 'ro', required => 1 );
+has filters =>
+    ( is => 'ro', isa => 'ArrayRef[Str]' );
+
+sub run { ... }
    +
    + +
    +

    MooseX::Getopt

    + +
      +
    • Then call it like this:
      • +
    + +
    #!/usr/bin/perl
+
+use App::CLI;
+
+App::CLI->new_with_options()->run();
    + +
    $ myapp-cli \
+   --file foo \
+   --filters compress \
+   --filters sanitize
    +
    + +
    +

    MooseX::Clone

    + + 
    package Person;
+
+use Moose;
+with 'MooseX::Clone';
+
+my $person = Person->new;
+my $clone  = $person->clone;
    +
    + +
    +

    MooseX::NonMoose

    + +
      +
    • Highly recommended for subclassing non-Moose parents
      • +
    • Gets all the little annoying details right
      • +
    +
    + +
    +

    MooseX::Role::Parameterized

    + + 
    package HasCollection;
+use MooseX::Role::Parameterized;
+parameter type => ( isa     => 'Str',
+                    default => 'Item' );
+role {
+    my $p = shift;
+
+    my $type =
+        'ArrayRef[' . $p->type() . ']';
+    has collection =>
+        ( is  => 'ro',
+          isa => $type );
+};
    +
    + +
    +

    MooseX::Role::Parameterized

    + + 
    package Person;
+
+use Moose;
+with HasCollection => { type => 'Int' };
    +
    + +
    +

    Questions?

    +
    + +
    +

    Moose-using Modules

    + +

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

    + + +
    + +
    +

    More Information

    + +
    -

    Part 9: Writing Moose Extensions

    +

    The End