# perl bin/prove -lv t/00-prereq.t
-# perl install-moose (if needed)
-
## Read the instructions in t/01-classes.t
# perl bin/prove -lv t/01-classes.t
<h1>Attribute Inheritance</h1>
<ul>
- <li>By default, subclasses inherit attribute as-is</li>
+ <li>By default, subclasses inherit attributes as-is</li>
<li>Can change attribute parameters in subclasses</li>
</ul>
</div>
<h1>Subtype Shortcuts - <code>class_type</code></h1>
<pre><code>use Moose::Util::TypeConstraints;
-class_type 'DateTime';</code></pre>
+
+class_type 'DateTime';
+
+</code></pre>
<hr />
-<pre><code>subtype 'DateTime',
+<pre><code>
+subtype 'DateTime',
as 'Object',
where { $_->isa('DateTime') },
message { ... };</code></pre>
<h1>Subtype Shortcuts - <code>role_type</code></h1>
<pre><code>use Moose::Util::TypeConstraints;
-role_type 'Printable';</code></pre>
+
+role_type 'Printable';
+
+</code></pre>
<hr />
-<pre><code>subtype 'Printable',
+<pre><code>
+subtype 'Printable',
as 'Object',
where
{ Moose::Util::does_role(
<h1>Subtype Shortcuts - <code>duck_type</code></h1>
<pre><code>use Moose::Util::TypeConstraints;
-duck_type Car => qw( run break_down );</code></pre>
+
+duck_type Car => qw( run break_down );
+
+</code></pre>
<hr />
-<pre><code>subtype 'Car',
+<pre><code>
+subtype 'Car',
as 'Object',
where { all { $_->can($_) }
qw( run break_down ) },
<h1>Subtype Shortcuts - <code>enum</code></h1>
<pre><code>use Moose::Util::TypeConstraints;
-enum Color => qw( red blue green );</code></pre>
+
+enum Color => qw( red blue green );
+
+</code></pre>
<hr />
-<pre><code>my %ok = map { $_ => 1 }
+<pre><code>
+my %ok = map { $_ => 1 }
qw( red blue green );
subtype 'Color'
<pre><code>package Person;
<span class="highlight">my $posint =
- subtype as 'Int', where { $_ > 0 };</span>
+ subtype
+ as 'Int',
+ where { $_ > 0 };</span>
has size => (
is => 'ro',
</div>
<div class="slide">
+ <h1>Specio</h1>
+
+ <ul>
+ <li>My attempt to replace <code>MooseX::Types</code> <strong>and</strong> built-in types</li>
+ <li>Third-system effect?</li>
+ <li>Still alpha - needs some work</li>
+ </ul>
+</div>
+
+<div class="slide">
<h1>Recommendation</h1>
<ul>
- <li>Use <code>MooseX::Types</code></li>
+ <li>Use <code>MooseX::Types</code> for now</li>
+ <li>Switch to <code>Specio</code> when it's ready?</li>
<li>Compile time error catching and automatic namespacing are huge wins</li>
<li>Docs from <code>Moose::Util::TypeConstraints</code> are 98% compatible with <code>MooseX::Types</code> anyway</li>
<li>A function exported by a type library works wherever a type name would</li>
},</code></pre>
<ul>
- <li><code>$person->receive_money</code> = <code>$person->account->deposit</code></li>
- <li><code>$person->give_money</code> = <code>$person->account->withdraw</code></li>
+ <li><code>$person->receive_money</code>
+ <br/>
+ = <code>$person->account->deposit</code></li>
+ <li><code>$person->give_money</code>
+ <br/>
+ = <code>$person->account->withdraw</code></li>
</ul>
</div>
<pre><code>package Person;
use Moose;
has _favorite_numbers => (
- traits => [ 'Array' ],
+ <span class="highlight">traits => [ 'Array' ],</span>
isa => 'ArrayRef[Int]',
default => sub { [] },
init_arg => undef,
</div>
<div class="slide">
- <h1>Traits and Metaclasses</h1>
-
- <ul>
- <li>The ultimate in customization</li>
- <li>Per attribute metaclasses</li>
- <li>Per attribute roles applied to the attribute metaclass</li>
- <li>Change the meta-level behavior</li>
- </ul>
-</div>
-
-<div class="slide">
- <h1>Traits and Metaclasses</h1>
-
- <ul>
- <li>The default metaclass is <code>Moose::Meta::Attribute</code></li>
- <li>Controls accessor generation, defaults, delegation, etc.</li>
- <li>Adding a role to this metaclass (or replacing it) allows for infinite customization</li>
- </ul>
-</div>
-
-<div class="slide">
- <h1>Traits and Metaclasses</h1>
-
- <ul>
- <li>Can add/alter/remove an attribute parameter (from <code>has</code>)</li>
- <li>Can change behavior of created attribute</li>
- </ul>
-</div>
-
-<div class="slide">
- <h1>Simple Trait Example</h1>
-
- <pre><code>package Person;
-use Moose;
-use MooseX::LabeledAttributes;
-
-has ssn => (
- <span class="highlight">traits => [ 'Labeled' ],</span>
- is => 'ro',
- isa => 'Str',
- <span class="highlight">label => 'Social Security Number',</span>
-);
-print <span class="highlight">Person->meta
- ->get_attribute('ssn')->label;</span></code></pre>
-</div>
-
-<div class="slide">
- <h1>Simple Metaclass Example</h1>
-
- <pre><code>package Person;
-use Moose;
-use MooseX::LabeledAttributes;
-
-has ssn => (
- <span class="highlight">metaclass =>
- 'MooseX::Meta::Attribute::Labeled',</span>
- is => 'ro',
- isa => 'Str',
- <span class="highlight">label => 'Social Security Number',</span>
-);
-print <span class="highlight">Person->meta
- ->get_attribute('ssn')->label;</span></code></pre>
-</div>
-
-<div class="slide">
- <h1>Traits vs Metaclass</h1>
-
- <ul>
- <li>Can apply any mix of traits to an attribute</li>
- <li>But just one metaclass</li>
- <li>Traits (aka roles) can cooperate</li>
- <li>Metaclasses require you to pick just one</li>
- </ul>
-</div>
-
-<div class="slide">
<h1>Advanced Attributes Summary</h1>
<ul>
<li>Use trigger to do an action post-attribute write</li>
<li>Use delegations to hide "internal" objects</li>
<li>Use native delegations to treat Perl types as objects</li>
- <li>Traits and metaclasses let you extend Moose's core attribute features</li>
</ul>
</div>
</p>
<ul>
- <li><a href="http://search.cpan.org/dist/Catalyst-Runtime">Catalyst</a></li>
- <li><a href="http://search.cpan.org/dist/CHI">CHI</a></li>
- <li><a href="http://search.cpan.org/dist/Devel-REPL">Devel::REPL</a></li>
- <li><a href="http://search.cpan.org/dist/Email-Sender">Email::Sender</a></li>
- <li><a href="http://search.cpan.org/dist/Fey">Fey</a></li>
- <li><a href="http://search.cpan.org/dist/Net-Twitter">Net::Twitter</a></li>
+ <li><a href="http://metacpan.org/release/Catalyst-Runtime">Catalyst</a></li>
+ <li><a href="http://metacpan.org/release/CHI">CHI</a></li>
+ <li><a href="http://metacpan.org/release/Devel-REPL">Devel::REPL</a></li>
+ <li><a href="http://metacpan.org/release/Dist-Zilla">Dist::Zilla</a></li>
+ <li><a href="http://metacpan.org/release/Email-Sender">Email::Sender</a></li>
+ <li><a href="http://metacpan.org/release/Fey">Fey</a></li>
+ <li><a href="http://metacpan.org/release/Net-Twitter">Net::Twitter</a></li>
</ul>
</div>
<ul>
<li><a href="http://moose.perl.org/">http://moose.perl.org/</a></li>
- <li><a href="http://search.cpan.org/dist/Moose/lib/Moose/Manual.pod">Moose::Manual</a> and <a href="http://search.cpan.org/dist/Moose/lib/Moose/Cookbook.pod">Moose::Cookbook</a></li>
+ <li><a href="https://metacpan.org/module/Moose::Manual">Moose::Manual</a> and <a href="https://metacpan.org/module/Moose::Cookbook">Moose::Cookbook</a></li>
<li><a href="irc://irc.perl.org/#moose">irc://irc.perl.org/#moose</a></li>
<li>mailing list - <a href="mailto:moose@perl.org">moose@perl.org</a></li>
<li>Slides and exercises are in Moose's git repo:
<!--
-Copyright 2009 David Rolsky. All Rights Reserved.
+Copyright 2009-2013 David Rolsky. All Rights Reserved.
This work is licensed under a Creative Commons Attribution-Share Alike
3.0 United States License See