+ +

Introduction to Moose

YAPC 2009

+ +

Moose Summed Up

+ +

Declarative OO sugar
Introspectable
Extensible

+ +

Concepts

+ +

Moose builds on Perl 5's native OO
Borrows ideas from other languages, notably Perl 6
Provides semantics for common operations

+ +

Classes

+ +

+ Classes have ... +
- Attributes
- Methods
- Superclasses
- Method modifiers
- Constructor and destructor
- One metaclass object
+
Classes do roles

+ +

Class Example

+ +

package Person;
+use Moose;

+ +

Poof, a Moose-based class!

+ +

Attributes

+ +

Aka property, slot, field, member variable
A piece of data owned by an object

+ +

Attributes

+ +

+ Attributes have ... +
- Access-control (read-only vs read-write)
- An optional type
- Accessor methods
- Delegation methods
- Optional default value
- Many more features
+
Stored in the object, but don't worry about that

+ +

Attribute Example

+ +

package Person;
+use Moose;
+
+has 'first_name' => ( is => 'rw' );

+ +

Methods

+ +

Nothing fancy here, just Perl subroutines

+ +

package Person;
+use Moose;
+
+sub greet { ... }

+ +

Roles

+ +

Classes do (or consume) roles
Similar to mixins and Java interfaces

+ +

Roles

+ +

Like classes, can have attributes, methods, do roles
Roles can require methods
Roles are composed (flattened) into classes

+ +

Role Example

+ +

package HasPermissions;
+use Moose::Role;
+
+has is_admin => ( is => 'rw' );

+ +

Role Example

+ +

+ And then ... +

+ +

package Person;
+use Moose;
+
+with 'HasPermissions';

+ +

Method Modifiers

+ +

AKA advice
"Before foo(), do this first"
"Do this after foo()
"Put this code around foo()"

+ +

Before & After

+ +

before 'foo'
+    => sub { warn 'About to call foo()' };
+
+after  'foo'
+    => sub { warn 'Leaving foo()' };

+ +

Around

+ +

around 'foo' => sub {
+    my $real_foo = shift;
+    my $self     = shift;
+
+    warn 'Just before foo()';
+    my @return =
+        $self->$real_foo( @_, bar => 42 );
+
+    return ( @return, 'modify return values' );
+};

+ +

Type Constraints

+ +

NOT A FULL-BLOWN TYPE SYSTEM!
But still darn useful
Constrain attribute values
Coerce from other types

+ +

Type Constraint Example

+ +

package Person;
+use Moose;
+
+has 'weight' => ( is => 'ro', isa => 'Int' );
+
+# kaboom
+Person->new( weight => 'fat' );

+ +

Delegation

+ +

Attributes can define delegations
Lets you hide some implementation details
Fewer objects to chase around

+ +

Delegation

+ +

package Person;
+use Moose;
+
+has 'blog_uri' => (
+    is      => 'rw',
+    isa     => 'URI',
+    handles => { 'blog_hostname' => 'host' },
+);
+
+$person->blog_hostname;
+# really calls $person->blog_uri->host
+


+
+
+  Constructors
+
+  
+    Moose creates new() for you
+    Provide an optional BUILDARGS() and BUILD()
+  
+
+
+
+  Destructors
+
+  
+    Provide an optional DEMOLISH()
+  
+
+
+
+  Moose Meta-API
+
+  
+    Answers questions like ...
+      
+        What methods does this class have?
+        What are its parents?
+        What attributes does it have (including inherited attributes)?
+        What roles does it do?
+        Much, much, more
+      
+    
+  
+
+
+
+  Moose Meta-API
+
+  
+    Not just for introspection ...
+      
+        Add methods, attributes, roles, etc
+        Extend and alter core features
+      
+    
+  
+
+
+
+  Why Moose?
+
+  
+    A quick bit of propoganda ...
+  
+
+
+
+  With Moose
+
+  package Person;
+use Moose;
+
+has last_name => (
+    is  => 'rw',
+    isa => 'Str',
+);
+
+
+
+    Without Moose
+
+    package Person;
+use strict;
+use warnings;
+use Carp 'confess';
+
+sub new {
+    my $class = shift;
+    my %args  = @_;
+    my $self  = {};
+
+    if (exists $args{last_name}) {
+        confess "Attribute (last_name) does not pass the type constraint because: "
+                . "Validation failed for 'Str' with value $args{last_name}"
+            if ref($args{last_name});
+        $self->{last_nane} = $args{last_name};
+    }
+
+    return bless $self, $class;
+}
+
+sub last_name {
+    my $self = shift;
+
+    if (@_) {
+        my $value = shift;
+        confess "Attribute (last_name) does not pass the type constraint because: "
+                . "Validation failed for 'Str' with value $value"
+            if ref($value);
+        $self->{last_name} = $value;
+    }
+
+    return $self->{last_name};
+}
+
+
+
+
+    Side by side
+
+    
+        
+          
+            
+        
+    
+            package Person;
+use Moose;
+
+has last_name => (
+    is  => 'rw',
+    isa => 'Str',
+);
+            
+                package Person;
+use strict;
+use warnings;
+use Carp 'confess';
+
+sub new {
+    my $class = shift;
+    my %args  = @_;
+    my $self  = {};
+
+    if (exists $args{last_name}) {
+        confess "Attribute (last_name) does not pass the type constraint because: "
+                . "Validation failed for 'Str' with value $args{last_name}"
+            if ref($args{last_name});
+        $self->{last_nane} = $args{last_name};
+    }
+
+    return bless $self, $class;
+}
+
+sub last_name {
+    my $self = shift;
+
+    if (@_) {
+        my $value = shift;
+        confess "Attribute (last_name) does not pass the type constraint because: "
+                . "Validation failed for 'Str' with value $value"
+            if ref($value);
+        $self->{last_name} = $value;
+    }
+
+    return $self->{last_name};
+}
+            
+
+
+
+
+    Side by side
+
+    
+        
+            
+            
+        
+    
+                package Person;
+use Moose;
+
+has last_name => (
+    is  => 'rw',
+    isa => 'Str',
+);
+            
+                package Person;
+use strict;
+use warnings;
+use Carp 'confess';
+
+sub new {
+    my $class = shift;
+    my %args  = @_;
+    my $self  = {};
+
+    if (exists $args{last_name}) {
+        confess "Attribute (last_name) does not pass the type constraint because: "
+                . "Validation failed for 'Str' with value $args{last_name}"
+            if ref($args{last_name});
+        $self->{last_nane} = $args{last_name};
+    }
+
+    return bless $self, $class;
+}
+
+sub last_name {
+    my $self = shift;
+
+    if (@_) {
+        my $value = shift;
+        confess "Attribute (last_name) does not pass the type constraint because: "
+                . "Validation failed for 'Str' with value $value"
+            if ref($value);
+        $self->{last_name} = $value;
+    }
+
+    return $self->{last_name};
+}
+            
+
+
+
+    Side by side
+
+    
+        
+            
+            
+        
+    
+                package Person;
+use Moose;
+
+has last_name => (
+    is  => 'rw',
+    isa => 'Str',
+);
+            
+                package Person;
+use strict;
+use warnings;
+use Carp 'confess';
+
+sub new {
+    my $class = shift;
+    my %args  = @_;
+    my $self  = {};
+
+    if (exists $args{last_name}) {
+        confess "Attribute (last_name) does not pass the type constraint because: "
+                . "Validation failed for 'Str' with value $args{last_name}"
+            if ref($args{last_name});
+        $self->{last_nane} = $args{last_name};
+    }
+
+    return bless $self, $class;
+}
+
+sub last_name {
+    my $self = shift;
+
+    if (@_) {
+        my $value = shift;
+        confess "Attribute (last_name) does not pass the type constraint because: "
+                . "Validation failed for 'Str' with value $value"
+            if ref($value);
+        $self->{last_name} = $value;
+    }
+
+    return $self->{last_name};
+}
+            
+
+
+
+    Side by side
+
+    
+        
+            
+            
+        
+    
+                package Person;
+use Moose;
+
+has last_name => (
+    is  => 'rw',
+    isa => 'Str',
+);
+            
+                package Person;
+use strict;
+use warnings;
+use Carp 'confess';
+
+sub new {
+    my $class = shift;
+    my %args  = @_;
+    my $self  = {};
+
+    if (exists $args{last_name}) {
+        confess "Attribute (last_name) does not pass the type constraint because: "
+                . "Validation failed for 'Str' with value $args{last_name}"
+            if ref($args{last_name});
+        $self->{last_nane} = $args{last_name};
+    }
+
+    return bless $self, $class;
+}
+
+sub last_name {
+    my $self = shift;
+
+    if (@_) {
+        my $value = shift;
+        confess "Attribute (last_name) does not pass the type constraint because: "
+                . "Validation failed for 'Str' with value $value"
+            if ref($value);
+        $self->{last_name} = $value;
+    }
+
+    return $self->{last_name};
+}
+            
+
+
+
+    Side by side
+
+    
+        
+            
+            
+        
+    
+                package Person;
+use Moose;
+
+has last_name => (
+    is  => 'rw',
+    isa => 'Str',
+);
+            
+                package Person;
+use strict;
+use warnings;
+use Carp 'confess';
+
+sub new {
+    my $class = shift;
+    my %args  = @_;
+    my $self  = {};
+
+    if (exists $args{last_name}) {
+        confess "Attribute (last_name) does not pass the type constraint because: "
+                . "Validation failed for 'Str' with value $args{last_name}"
+            if ref($args{last_name});
+        $self->{last_nane} = $args{last_name};
+    }
+
+    return bless $self, $class;
+}
+
+sub last_name {
+    my $self = shift;
+
+    if (@_) {
+        my $value = shift;
+        confess "Attribute (last_name) does not pass the type constraint because: "
+                . "Validation failed for 'Str' with value $value"
+            if ref($value);
+        $self->{last_name} = $value;
+    }
+
+    return $self->{last_name};
+}
+            
+
+
+
+    Side by side
+
+    
+        
+            
+            
+        
+    
+                package Person;
+use Moose;
+
+has last_name => (
+    is  => 'rw',
+    isa => 'Str',
+);
+            
+                package Person;
+use strict;
+use warnings;
+use Carp 'confess';
+
+sub new {
+    my $class = shift;
+    my %args  = @_;
+    my $self  = {};
+
+    if (exists $args{last_name}) {
+        confess "Attribute (last_name) does not pass the type constraint because: "
+                . "Validation failed for 'Str' with value $args{last_name}"
+            if ref($args{last_name});
+        $self->{last_nane} = $args{last_name};
+    }
+
+    return bless $self, $class;
+}
+
+sub last_name {
+    my $self = shift;
+
+    if (@_) {
+        my $value = shift;
+        confess "Attribute (last_name) does not pass the type constraint because: "
+                . "Validation failed for 'Str' with value $value"
+            if ref($value);
+        $self->{last_name} = $value;
+    }
+
+    return $self->{last_name};
+}
+            
+
+
+
+    Side by side
+
+    
+        
+            
+            
+        
+        
+            
+            
+        
+        
+            
+            
+        
+    5 lines 21 lines
92 characters 741 characters

+                package Person;
+use Moose;
+
+has last_name => (
+    is  => 'rw',
+    isa => 'Str',
+);
+            
+                package Person;
+use strict;
+use warnings;
+use Carp 'confess';
+
+sub new {
+    my $class = shift;
+    my %args  = @_;
+    my $self  = {};
+
+    if (exists $args{last_name}) {
+        confess "Attribute (last_name) does not pass the type constraint because: "
+                . "Validation failed for 'Str' with value $args{last_name}"
+            if ref($args{last_name});
+        $self->{last_nane} = $args{last_name};
+    }
+
+    return bless $self, $class;
+}
+
+sub last_name {
+    my $self = shift;
+
+    if (@_) {
+        my $value = shift;
+        confess "Attribute (last_name) does not pass the type constraint because: "
+                . "Validation failed for 'Str' with value $value"
+            if ref($value);
+        $self->{last_name} = $value;
+    }
+
+    return $self->{last_name};
+}
+            
+
+
+
+    Typo?
+
+    sub new {
+    my $class = shift;
+    my %args  = @_;
+    my $self  = {};
+
+    if (exists $args{last_name}) {
+        confess "Attribute (last_name) does not pass the type constraint because: "
+                . "Validation failed for 'Str' with value $args{last_name}"
+            if ref($args{last_name});
+        $self->{last_nane} = $args{last_name};
+    }
+
+    return bless $self, $class;
+}
+
+
+
+    Typo?
+
+    if (exists $args{last_name}) {
+    confess "Attribute (last_name) does not pass the type constraint because: "
+            . "Validation failed for 'Str' with value $args{last_name}"
+        if ref($args{last_name});
+    $self->{last_nane} = $args{last_name};
+}
+
+
+
+    Typo?
+
+    $self->{last_nane} = $args{last_name};
+
+
+
+    Typo?
+    $self->{last_nane}
+
+
+
+    Why Moose?
+
+    package Person;
+use Moose;
+
+has last_name => (
+    is  => 'rw',
+    isa => 'Str',
+);
+
+
+
+  Moose Classes
+
+
+
+  Moose Classes
+
+  
+    Moose classes are Perl packages which use Moose
+  
+
+
+
+  Moose.pm and Your Class
+
+  package Person;
+use Moose;
+
+  
+    Moose.pm provides declarative sugar
+    Creates metaclasses for your class: Person->meta
+    Moose classes automatically inherit from Moose::Object
+  
+
+
+
+  What Moose::Object Provides
+
+  
+    Constructor - new()
+    Calls your BUILDARGS() and/or BUILD()
+    Calls your DEMOLISH during object destruction
+  
+
+
+
+  extends
+
+  
+    extends is sugar for declaring parent classes
+  
+
+  package Employee;
+use Moose;
+extends 'Person';
+
+
+
+  extends
+
+  
+    Each call to extends resets your parents
+  
+
+  WRONG
+
+  package BadEmployee;
+use Moose;
+extends 'Person';
+extends 'Thief';
+
+  RIGHT
+
+  package BadEmployee;
+use Moose;
+extends 'Person', 'Thief';
+
+
+
+  Extending un-Moose-y Parents
+
+  package My::LWP;
+use Moose;
+extends 'LWP';
+
+  
+    No Moose::Object, so ...
+      
+        No attribute-handling new()
+        No BUILDARGS() or BUILD()
+        No DEMOLISH()
+      
+    
+    But see MooseX::NonMoose for a workaround
+  
+  
+
+
+  Cleaning Up Moose Droppings
+
+  package Person;
+use Moose;
+
+# true
+Person->can('extends');
+
+  
+    Not very hygienic
+  
+
+
+
+  Cleaning Up Moose Droppings
+
+  package Person;
+use Moose;
+
+...
+
+no Moose;
+
+# false
+Person->can('extends');
+
+
+
+  No Moose
+
+  
+    no Moose at the end of a package is a best practice
+    Just do it
+  
+
+
+
+  Immutability
+
+  
+    Stevan's Incantation of Fleet-Footedness
+  
+
+  package Person;
+use Moose;
+
+__PACKAGE__->meta->make_immutable;
+
+
+
+
diff --git a/moose-class/outline b/moose-class/outline
new file mode 100644
index 0000000..379453b
--- /dev/null
+++ b/moose-class/outline
@@ -0,0 +1,102 @@
+= Intro (30 minutes)
+
+* concepts (ala Moose::Manual::Concepts)
+
+= Classes
+
+* Making a class use Moose
+* extends
+* overrides/super
+* trivial attributes
+** has 'foo' => ( is => ... ) (ro & rw)
+** no other attribute features yet
+* "no Moose"
+* Immutability
+
+== Exercises
+
+* Build a Person class that uses Moose
+** first_name
+** last_name
+** assume both attributes are always provided
+* build an Employee class that is a subclass of Person
+** job_title
+
+= Roles
+
+* Making a role
+* roles as interfaces
+* requires
+* consuming roles in classes
+* consuming roles in roles
+* "no Moose::Role"
+
+== Exercises
+
+* build a role for Human
+* make the Person class consume the role
+* make the role require a "full_name" method
+* implement this method for Person
+* override it for Employee to include their title
+
+= Basic attributes
+
+* required
+* default & builder
+* lazy
+* init_arg
+
+== Exercises
+
+* Go back to Person class
+** make first & last name required
+* Go back to Employee
+** make title default to "Worker"
+** add salary_level attribute, number from 1-10
+** salary, lazy default of salary_level * 1,000, init_arg is undef
+
+= Method modifiers
+
+* before/after
+** before for state validation
+** after for additional state changes
+* around
+** modifying arguments & return values
+
+== Exercises
+
+= More roles
+
+* methods and attributes
+* method modifiers (and requiring the wrapped method)
+* attributes in roles
+
+== Exercises
+
+= Advanced attributes
+
+* delegation
+* metaclass & traits
+
+== Exercises
+
+= Types
+
+* built-in types
+* parameterizable types
+* declaring subtypes
+** URI
+** Email
+** class names & role names
+* coercions
+* attribute isa & does
+
+== Exercises
+
+= Introspection
+
+== Exercises
+
+= MooseX
+
+== Exercises
diff --git a/moose-class/ui/bg-shade.png b/moose-class/ui/bg-shade.png
new file mode 100644
index 0000000..172c914
Binary files /dev/null and b/moose-class/ui/bg-shade.png differ
diff --git a/moose-class/ui/custom.css b/moose-class/ui/custom.css
new file mode 100644
index 0000000..2840f55
--- /dev/null
+++ b/moose-class/ui/custom.css
@@ -0,0 +1,93 @@
+html>body {
+    background: none;
+}
+
+div.image-set {
+    margin-left: 6.5%;
+    margin-top: 1em;
+}
+
+div#header, div#footer {
+    color: black;
+    background: #eddbb4;
+}
+
+.slide h1 {
+    background: #eddbb4;
+    color: black;
+}
+
+span.date, span.uri {
+    font-size: 80%;
+}
+
+span.uri {
+    color: blue;
+}
+
+div.image-gallery {
+    text-align: center;
+}
+
+p.image-notes {
+    font-size: 40%;
+    font-style: italic;
+}
+
+img.for-slide {
+    float: right;
+}
+
+.slide ul, .slide ul li ul {
+    line-height: 1.2em;
+}
+
+.slide pre {
+    font-size: 100%;
+    line-height: 130%;
+}
+
+.highlight {
+    color: #03c;
+}
+
+.slide pre.small {
+    font-size: 33%;
+}
+
+.slide pre code {
+}
+
+.slide table.side-by-side tr {
+    vertical-align: top;
+}
+
+.match-moose {
+    color: #03c;
+}
+.match-unsweet {
+    color: #03c;
+    font-weight: bold;
+}
+
+.wrong {
+    color: #F00;
+}
+
+.right {
+    color: #0C0;
+}
+
+.slide h2 {
+    margin: 0.1em 0 0.1em 0;
+}
+
+.slide ul + h2,   
+.slide ul + pre {
+    margin-top: 0.5em;
+}
+
+.fake-slide0 {padding-top: 3.5em; font-size: 90%;}
+.fake-slide0 h1 {position: static; margin: 1em 0 0; padding: 0;
+   font: bold 2em Helvetica, sans-serif; white-space: normal;
+   color: #000; background: transparent;}
diff --git a/moose-class/ui/default/blank.gif b/moose-class/ui/default/blank.gif
new file mode 100644
index 0000000..75b945d
Binary files /dev/null and b/moose-class/ui/default/blank.gif differ
diff --git a/moose-class/ui/default/bodybg.gif b/moose-class/ui/default/bodybg.gif
new file mode 100755
index 0000000..5f448a1
Binary files /dev/null and b/moose-class/ui/default/bodybg.gif differ
diff --git a/moose-class/ui/default/framing.css b/moose-class/ui/default/framing.css
new file mode 100644
index 0000000..2a27daf
--- /dev/null
+++ b/moose-class/ui/default/framing.css
@@ -0,0 +1,22 @@
+/* The following styles size, place, and layer the slide components.
+   Edit these if you want to change the overall slide layout.
+   The commented lines can be uncommented (and modified, if necessary) 
+    to help you with the rearrangement process. */
+
+/* target = 1024x768 */
+
+div#header, div#footer, .slide {width: 100%; top: 0; left: 0;}
+div#header {top: 0; height: 3em; z-index: 1;}
+div#footer {top: auto; bottom: 0; height: 2.5em; z-index: 5;}
+.slide {top: 0; width: 92%; padding: 3.5em 4% 4%; z-index: 2;  list-style: none;}
+div#controls {left: 50%; bottom: 0; width: 50%; z-index: 100;}
+div#controls form {text-align: right; width: 100%; margin: 0;}
+#currentSlide {position: absolute; width: 10%; left: 45%; bottom: 1em; z-index: 10;}
+html>body #currentSlide {position: fixed;}
+
+/*
+div#header {background: #FCC;}
+div#footer {background: #CCF;}
+div#controls {background: #BBD;}
+div#currentSlide {background: #FFC;}
+*/
diff --git a/moose-class/ui/default/iepngfix.htc b/moose-class/ui/default/iepngfix.htc
new file mode 100644
index 0000000..bba2db7
--- /dev/null
+++ b/moose-class/ui/default/iepngfix.htc
@@ -0,0 +1,42 @@
+
+
+
+
+
\ No newline at end of file
diff --git a/moose-class/ui/default/notes.css b/moose-class/ui/default/notes.css
new file mode 100644
index 0000000..137b444
--- /dev/null
+++ b/moose-class/ui/default/notes.css
@@ -0,0 +1,125 @@
+/* Following are the note styles -- edit away! */
+
+body {
+	margin: 0;
+	padding: 1.0em;
+	font: 2em/1.4em 'Lucida Grande', Verdana, sans-serif;
+}
+
+div.timers {
+	background: #FFF;
+	color: #333;
+	border: 0.08em solid #222;
+	border-top-width: 1px;
+	border-left-width: 1px;
+	float: left;
+	padding: 0.2em;
+	margin: 0 0 0.5em;
+	position: relative;
+}
+
+div.timers h1 {
+	text-align: left;
+	font-size: 0.6em;
+	line-height: 1.4em;
+	background-color: #FF9;
+	padding: 0 0.75em;
+	margin: 0.25em 0 0;
+	border: 1px solid #EE8;
+}
+
+div.timers div.controls {
+	position: absolute;
+	right: 0.25em;
+	top: 0.1em;
+	line-height: 1em;
+}
+
+div.timers h1 a {
+	text-decoration: none;
+	color: #000;
+}
+
+div.timers div.controls a {
+	font-size: 0.5em;
+	padding: 0;
+	color: #330;
+}
+
+div.timers a.control {
+	position: absolute;
+	text-decoration: none;
+	padding: 0 0.25em;
+	color: #AAA;
+	outline: 0;
+}
+
+#minus {
+	left: 0.25em;
+}
+
+#plus {
+	right: 0.25em;
+}
+
+.overtime {
+	background: yellow;
+	color: red;
+	border: 3px solid;
+	padding: 0.1em 0.25em;
+	font-weight: bold;
+}
+
+div.timers h2 {
+	font-size: 0.6em;
+	line-height: 1.0em;
+	font-weight: normal;
+	margin: 0 0 -0.25em;
+	padding-top: 0.5em;
+	color: #666;
+}
+
+div.timers p {margin: 0; padding: 0 0.5em;}
+div.timers form {margin: 0;}
+
+div.timers span.clock {
+	font-family: monospace;
+}
+
+div.timers ul {margin: 0; padding: 0; list-style: none;}
+div.timers li {float: left; width: 5em; margin: 0; padding: 0 0.5em;
+  text-align: center;}
+
+div#elapsed {width: 12.1em;}
+div#remaining {clear: left; width: 12.1em;}
+div#remaining p {text-align: center;}
+
+#slide,
+#next,
+#notes,
+#nextnotes {
+	font-size: 0.75em;
+	line-height: 1.4em;
+	clear: left;
+/*	max-width: 30.0em; */
+	text-shadow: 0.1em 0.1em 0.1em #111;
+}
+
+#next {margin-top: 2.5em;}
+#next, #nextnotes {
+	color: #999;
+	font-size: 0.66em;
+}
+
+em.disclaimer {
+	color: #666;
+}
+
+div.collapsed h1 {display: block; font-size: 0.33em;}
+div.collapsed h1 a {display: inline;}
+div.collapsed * {display: none;}
+
+/* custom */
+div.timers {
+    display: none;
+}
\ No newline at end of file
diff --git a/moose-class/ui/default/opera.css b/moose-class/ui/default/opera.css
new file mode 100644
index 0000000..9e9d2a3
--- /dev/null
+++ b/moose-class/ui/default/opera.css
@@ -0,0 +1,7 @@
+/* DO NOT CHANGE THESE unless you really want to break Opera Show */
+.slide {
+	visibility: visible !important;
+	position: static !important;
+	page-break-before: always;
+}
+#slide0 {page-break-before: avoid;}
diff --git a/moose-class/ui/default/outline.css b/moose-class/ui/default/outline.css
new file mode 100644
index 0000000..62db519
--- /dev/null
+++ b/moose-class/ui/default/outline.css
@@ -0,0 +1,15 @@
+/* don't change this unless you want the layout stuff to show up in the outline view! */
+
+.layout div, #footer *, #controlForm * {display: none;}
+#footer, #controls, #controlForm, #navLinks, #toggle {
+  display: block; visibility: visible; margin: 0; padding: 0;}
+#toggle {float: right; padding: 0.5em;}
+html>body #toggle {position: fixed; top: 0; right: 0;}
+
+/* making the outline look pretty-ish */
+
+#slide0 h1, #slide0 h2, #slide0 h3, #slide0 h4 {border: none; margin: 0;}
+#slide0 h1 {padding-top: 1.5em;}
+.slide h1 {margin: 1.5em 0 0; padding-top: 0.25em;
+  border-top: 1px solid #888; border-bottom: 1px solid #AAA;}
+#toggle {border: 1px solid; border-width: 0 0 1px 1px; background: #FFF;}
diff --git a/moose-class/ui/default/pretty.css b/moose-class/ui/default/pretty.css
new file mode 100644
index 0000000..838a7cf
--- /dev/null
+++ b/moose-class/ui/default/pretty.css
@@ -0,0 +1,82 @@
+/* Following are the presentation styles -- edit away! */
+
+body {background: #FFF url(bodybg.gif) -16px 0 no-repeat; color: #000; font-size: 2.25em;}
+:link, :visited {text-decoration: none; color: #00C;}
+#controls :active {color: #88A !important;}
+#controls :focus {outline: 1px dotted #227;}
+h1, h2, h3, h4 {font-size: 100%; margin: 0; padding: 0; font-weight: inherit;}
+ul, pre {margin: 0; line-height: 1em;}
+html, body {margin: 0; padding: 0;}
+
+blockquote, q {font-style: italic;}
+blockquote {padding: 0 2em 0.5em; margin: 0 1.5em 0.5em; text-align: center; font-size: 1em;}
+blockquote p {margin: 0;}
+blockquote i {font-style: normal;}
+blockquote b {display: block; margin-top: 0.5em; font-weight: normal; font-size: smaller; font-style: normal;}
+blockquote b i {font-style: italic;}
+
+kbd {font-weight: bold; font-size: 1em;}
+sup {font-size: smaller; line-height: 1px;}
+
+.slide code {padding: 2px 0.25em; font-weight: bold; color: #533;}
+.slide code.bad, code del {color: red;}
+.slide code.old {color: silver;}
+.slide pre {padding: 0; margin: 0.25em 0 0.5em 0.5em; color: #533; font-size: 90%;}
+.slide pre code {display: block;}
+.slide ul {margin-left: 5%; margin-right: 7%; list-style: disc;}
+.slide li {margin-top: 0.75em; margin-right: 0;}
+.slide ul ul {line-height: 1;}
+.slide ul ul li {margin: .2em; font-size: 85%; list-style: square;}
+.slide img.leader {display: block; margin: 0 auto;}
+
+div#header, div#footer {background: #005; color: #AAB;
+  font-family: Verdana, Helvetica, sans-serif;}
+div#header {background: #005 url(bodybg.gif) -16px 0 no-repeat;
+  line-height: 1px;}
+div#footer {font-size: 0.5em; font-weight: bold; padding: 1em 0;}
+#footer h1, #footer h2 {display: block; padding: 0 1em;}
+#footer h2 {font-style: italic;}
+
+div.long {font-size: 0.75em;}
+.slide h1 {position: absolute; top: 0.7em; left: 87px; z-index: 1;
+  margin: 0; padding: 0.3em 0 0 50px; white-space: nowrap;
+  font: bold 150%/1em Helvetica, sans-serif; text-transform: capitalize;
+  color: #DDE; background: #005;}
+.slide h3 {font-size: 130%;}
+h1 abbr {font-variant: small-caps;}
+
+div#controls {position: absolute; left: 60%; bottom: 0;
+  width: 40%;
+  text-align: right; font: bold 0.9em Verdana, Helvetica, sans-serif;}
+html>body div#controls {position: fixed; padding: 0; top: auto;}
+#controls #navLinks a {padding: 0; margin: 0 0.5em; 
+  background: #005; border: none; color: #779; 
+  cursor: pointer;}
+#controls #navList #jumplist {background: #DDD; color: #227;}
+
+#currentSlide {text-align: center; font-size: 0.5em; color: #449;}
+
+#slide0 {padding-top: 3.5em; font-size: 90%;}
+#slide0 h1 {position: static; margin: 1em 0 0; padding: 0;
+   font: bold 2em Helvetica, sans-serif; white-space: normal;
+   color: #000; background: transparent;}
+#slide0 h2 {font: bold italic 1em Helvetica, sans-serif; margin: 0.25em;}
+#slide0 h3 {margin-top: 1.5em; font-size: 1.5em;}
+#slide0 h4 {margin-top: 0; font-size: 1em;}
+
+ul.urls {list-style: none; display: inline; margin: 0;}
+.urls li {display: inline; margin: 0;}
+.note {display: none;}
+.external {border-bottom: 1px dotted gray;}
+html>body .external {border-bottom: none;}
+.external:after {content: " \274F"; font-size: smaller; color: #77B;}
+
+.incremental, .incremental *, .incremental *:after {color: #DDE; visibility: visible;}
+img.incremental {visibility: hidden;}
+.slide .current {color: #B02;}
+
+
+/* diagnostics
+
+li:after {content: " [" attr(class) "]"; color: #F88;}
+ */
\ No newline at end of file
diff --git a/moose-class/ui/default/print.css b/moose-class/ui/default/print.css
new file mode 100644
index 0000000..e7a71d1
--- /dev/null
+++ b/moose-class/ui/default/print.css
@@ -0,0 +1 @@
+/* The following rule is necessary to have all slides appear in print! DO NOT REMOVE IT! */
.slide, ul {page-break-inside: avoid; visibility: visible !important;}
h1 {page-break-after: avoid;}

body {font-size: 12pt; background: white;}
* {color: black;}

#slide0 h1 {font-size: 200%; border: none; margin: 0.5em 0 0.25em;}
#slide0 h3 {margin: 0; padding: 0;}
#slide0 h4 {margin: 0 0 0.5em; padding: 0;}
#slide0 {margin-bottom: 3em;}

h1 {border-top: 2pt solid gray; border-bottom: 1px dotted silver;}
.extra {background: transparent !important;}
div.extra, pre.extra, .example {font-size: 10pt; color: #333;}
ul.extra a {font-weight: bold;}
p.example {display: none;}

#header {display: none;}
#footer h1 {margin: 0; border-bottom: 1px solid; color: gray; font-style: italic;}
#footer h2, #controls {display: none;}

/* The following rule keeps the layout stuff out of print.  Remove at your own risk! */
.layout, .layout * {display: none !important;}
\ No newline at end of file
diff --git a/moose-class/ui/default/s5-core.css b/moose-class/ui/default/s5-core.css
new file mode 100644
index 0000000..ad1530b
--- /dev/null
+++ b/moose-class/ui/default/s5-core.css
@@ -0,0 +1,9 @@
+/* Do not edit or override these styles! The system will likely break if you do. */
+
+div#header, div#footer, div#controls, .slide {position: absolute;}
+html>body div#header, html>body div#footer, 
+  html>body div#controls, html>body .slide {position: fixed;}
+.handout, .notes {display: none;}
+.layout {display: block;}
+.slide, .hideme, .incremental {visibility: hidden;}
+#slide0 {visibility: visible;}
diff --git a/moose-class/ui/default/slides.css b/moose-class/ui/default/slides.css
new file mode 100644
index 0000000..0786d7d
--- /dev/null
+++ b/moose-class/ui/default/slides.css
@@ -0,0 +1,3 @@
+@import url(s5-core.css); /* required to make the slide show run at all */
+@import url(framing.css); /* sets basic placement and size of slide components */
+@import url(pretty.css);  /* stuff that makes the slides look better than blah */
\ No newline at end of file
diff --git a/moose-class/ui/default/slides.js b/moose-class/ui/default/slides.js
new file mode 100644
index 0000000..c7d0af9
--- /dev/null
+++ b/moose-class/ui/default/slides.js
@@ -0,0 +1,764 @@
+// S5 v1.2a1 slides.js -- released into the Public Domain
+//
+// Please see http://www.meyerweb.com/eric/tools/s5/credits.html for information
+// about all the wonderful and talented contributors to this code!
+
+var undef;
+var slideCSS = '';
+var snum = 0;
+var smax = 1;
+var incpos = 0;
+var number = undef;
+var s5mode = true;
+var defaultView = 'slideshow';
+var controlVis = 'visible';
+
+var s5NotesWindow;
+var s5NotesWindowLoaded = false;
+var previousSlide = 0;
+var presentationStart = new Date();
+var slideStart = new Date();
+
+var countdown = {
+	timer: 0,
+	state: 'pause',
+	start: new Date(),
+	end: 0,
+	remaining: 0
+};
+
+
+var isIE = navigator.appName == 'Microsoft Internet Explorer' && navigator.userAgent.indexOf('Opera') < 1 ? 1 : 0;
+var isOp = navigator.userAgent.indexOf('Opera') > -1 ? 1 : 0;
+var isGe = navigator.userAgent.indexOf('Gecko') > -1 && navigator.userAgent.indexOf('Safari') < 1 ? 1 : 0;
+
+function hasClass(object, className) {
+	if (!object.className) return false;
+	return (object.className.search('(^|\\s)' + className + '(\\s|$)') != -1);
+}
+
+function hasValue(object, value) {
+	if (!object) return false;
+	return (object.search('(^|\\s)' + value + '(\\s|$)') != -1);
+}
+
+function removeClass(object,className) {
+	if (!object || !hasClass(object,className)) return;
+	object.className = object.className.replace(new RegExp('(^|\\s)'+className+'(\\s|$)'), RegExp.$1+RegExp.$2);
+}
+
+function addClass(object,className) {
+	if (!object || hasClass(object, className)) return;
+	if (object.className) {
+		object.className += ' '+className;
+	} else {
+		object.className = className;
+	}
+}
+
+function GetElementsWithClassName(elementName,className) {
+	var allElements = document.getElementsByTagName(elementName);
+	var elemColl = new Array();
+	for (var i = 0; i< allElements.length; i++) {
+		if (hasClass(allElements[i], className)) {
+			elemColl[elemColl.length] = allElements[i];
+		}
+	}
+	return elemColl;
+}
+
+function isParentOrSelf(element, id) {
+	if (element == null || element.nodeName=='BODY') return false;
+	else if (element.id == id) return true;
+	else return isParentOrSelf(element.parentNode, id);
+}
+
+function nodeValue(node) {
+	var result = "";
+	if (node.nodeType == 1) {
+		var children = node.childNodes;
+		for (var i = 0; i < children.length; ++i) {
+			result += nodeValue(children[i]);
+		}
+	}
+	else if (node.nodeType == 3) {
+		result = node.nodeValue;
+	}
+	return(result);
+}
+
+function slideLabel() {
+	var slideColl = GetElementsWithClassName('*','slide');
+	var list = document.getElementById('jumplist');
+	smax = slideColl.length;
+	for (var n = 0; n < smax; n++) {
+		var obj = slideColl[n];
+
+		var did = 'slide' + n.toString();
+		obj.setAttribute('id',did);
+
+//		if (isOp) continue;   // Opera fix (hallvord)
+
+		var otext = '';
+		var menu = obj.firstChild;
+		if (!menu) continue; // to cope with empty slides
+		while (menu && menu.nodeType == 3) {
+			menu = menu.nextSibling;
+		}
+	 	if (!menu) continue; // to cope with slides with only text nodes
+
+		var menunodes = menu.childNodes;
+		for (var o = 0; o < menunodes.length; o++) {
+			otext += nodeValue(menunodes[o]);
+		}
+		list.options[list.length] = new Option(n + ' : '  + otext, n);
+	}
+}
+
+function currentSlide() {
+	var cs;
+	if (document.getElementById) {
+		cs = document.getElementById('currentSlide');
+	} else {
+		cs = document.currentSlide;
+	}
+	cs.innerHTML = '' +
+		'' + snum + '<\/span> ' +
+		'\/<\/span> ' +
+		'' + (smax-1) + '<\/span>' +
+		'<\/a>'
+		;
+	if (snum == 0) {
+		cs.style.visibility = 'hidden';
+	} else {
+		cs.style.visibility = 'visible';
+	}
+}
+
+function go(step) {
+	if (document.getElementById('slideProj').disabled || step == 0) return;
+	var jl = document.getElementById('jumplist');
+	var cid = 'slide' + snum;
+	var ce = document.getElementById(cid);
+	if (incrementals[snum].length > 0) {
+		for (var i = 0; i < incrementals[snum].length; i++) {
+			removeClass(incrementals[snum][i], 'current');
+			removeClass(incrementals[snum][i], 'incremental');
+		}
+	}
+	if (step != 'j') {
+		snum += step;
+		lmax = smax - 1;
+		if (snum > lmax) snum = lmax;
+		if (snum < 0) snum = 0;
+	} else
+		snum = parseInt(jl.value);
+	var nid = 'slide' + snum;
+	var ne = document.getElementById(nid);
+	if (!ne) {
+		ne = document.getElementById('slide0');
+		snum = 0;
+	}
+	if (step < 0) {incpos = incrementals[snum].length} else {incpos = 0;}
+	if (incrementals[snum].length > 0 && incpos == 0) {
+		for (var i = 0; i < incrementals[snum].length; i++) {
+			if (hasClass(incrementals[snum][i], 'current'))
+				incpos = i + 1;
+			else
+				addClass(incrementals[snum][i], 'incremental');
+		}
+	}
+	if (incrementals[snum].length > 0 && incpos > 0)
+		addClass(incrementals[snum][incpos - 1], 'current');
+	if (isOp) { //hallvord
+		location.hash = nid;
+	} else {
+		ce.style.visibility = 'hidden';
+		ne.style.visibility = 'visible';
+	} // /hallvord
+	jl.selectedIndex = snum;
+	currentSlide();
+	loadNote();
+	permaLink();
+	number = undef;
+}
+
+function goTo(target) {
+	if (target >= smax || target == snum) return;
+	go(target - snum);
+}
+
+function subgo(step) {
+	if (step > 0) {
+		removeClass(incrementals[snum][incpos - 1],'current');
+		removeClass(incrementals[snum][incpos], 'incremental');
+		addClass(incrementals[snum][incpos],'current');
+		incpos++;
+	} else {
+		incpos--;
+		removeClass(incrementals[snum][incpos],'current');
+		addClass(incrementals[snum][incpos], 'incremental');
+		addClass(incrementals[snum][incpos - 1],'current');
+	}
+	loadNote();
+}
+
+function toggle() {
+	var slideColl = GetElementsWithClassName('*','slide');
+	var slides = document.getElementById('slideProj');
+	var outline = document.getElementById('outlineStyle');
+	if (!slides.disabled) {
+		slides.disabled = true;
+		outline.disabled = false;
+		s5mode = false;
+		fontSize('1em');
+		for (var n = 0; n < smax; n++) {
+			var slide = slideColl[n];
+			slide.style.visibility = 'visible';
+		}
+	} else {
+		slides.disabled = false;
+		outline.disabled = true;
+		s5mode = true;
+		fontScale();
+		for (var n = 0; n < smax; n++) {
+			var slide = slideColl[n];
+			slide.style.visibility = 'hidden';
+		}
+		slideColl[snum].style.visibility = 'visible';
+	}
+}
+
+function showHide(action) {
+	var obj = GetElementsWithClassName('*','hideme')[0];
+	switch (action) {
+	case 's': obj.style.visibility = 'visible'; break;
+	case 'h': obj.style.visibility = 'hidden'; break;
+	case 'k':
+		if (obj.style.visibility != 'visible') {
+			obj.style.visibility = 'visible';
+		} else {
+			obj.style.visibility = 'hidden';
+		}
+	break;
+	}
+}
+
+// 'keys' code adapted from MozPoint (http://mozpoint.mozdev.org/)
+function keys(key) {
+	if (!key) {
+		key = event;
+		key.which = key.keyCode;
+	}
+	if (key.which == 84) {
+		toggle();
+		return;
+	}
+	if (s5mode) {
+		switch (key.which) {
+			case 10: // return
+			case 13: // enter
+				if (window.event && isParentOrSelf(window.event.srcElement, 'controls')) return;
+				if (key.target && isParentOrSelf(key.target, 'controls')) return;
+				if(number != undef) {
+					goTo(number);
+					break;
+				}
+			case 32: // spacebar
+			case 34: // page down
+			case 39: // rightkey
+			case 40: // downkey
+				if(number != undef) {
+					go(number);
+				} else if (!incrementals[snum] || incpos >= incrementals[snum].length) {
+					go(1);
+				} else {
+					subgo(1);
+				}
+				break;
+			case 33: // page up
+			case 37: // leftkey
+			case 38: // upkey
+				if(number != undef) {
+					go(-1 * number);
+				} else if (!incrementals[snum] || incpos <= 0) {
+					go(-1);
+				} else {
+					subgo(-1);
+				}
+				break;
+			case 36: // home
+				goTo(0);
+				break;
+			case 35: // end
+				goTo(smax-1);
+				break;
+			case 67: // c
+				showHide('k');
+				break;
+			case 78: // n
+				createNotesWindow();
+				break;
+		}
+		if (key.which < 48 || key.which > 57) {
+			number = undef;
+		} else {
+			if (window.event && isParentOrSelf(window.event.srcElement, 'controls')) return;
+			if (key.target && isParentOrSelf(key.target, 'controls')) return;
+			number = (((number != undef) ? number : 0) * 10) + (key.which - 48);
+		}
+	}
+	return false;
+}
+
+function clicker(e) {
+	number = undef;
+	var target;
+	if (window.event) {
+		target = window.event.srcElement;
+		e = window.event;
+	} else target = e.target;
+	if (target.href != null || hasValue(target.rel, 'external') || isParentOrSelf(target, 'controls') || isParentOrSelf(target,'embed') || isParentOrSelf(target,'object')) return true;
+	if (!e.which || e.which == 1) {
+		if (!incrementals[snum] || incpos >= incrementals[snum].length) {
+			go(1);
+		} else {
+			subgo(1);
+		}
+	}
+}
+
+function findSlide(hash) {
+	var target = null;
+	var slides = GetElementsWithClassName('*','slide');
+	for (var i = 0; i < slides.length; i++) {
+		var targetSlide = slides[i];
+		if ( (targetSlide.name && targetSlide.name == hash)
+		 || (targetSlide.id && targetSlide.id == hash) ) {
+			target = targetSlide;
+			break;
+		}
+	}
+	while(target != null && target.nodeName != 'BODY') {
+		if (hasClass(target, 'slide')) {
+			return parseInt(target.id.slice(5));
+		}
+		target = target.parentNode;
+	}
+	return null;
+}
+
+function slideJump() {
+	if (window.location.hash == null) return;
+	var sregex = /^#slide(\d+)$/;
+	var matches = sregex.exec(window.location.hash);
+	var dest = null;
+	if (matches != null) {
+		dest = parseInt(matches[1]);
+	} else {
+		dest = findSlide(window.location.hash.slice(1));
+	}
+	if (dest != null)
+		go(dest - snum);
+}
+
+function fixLinks() {
+	var thisUri = window.location.href;
+	thisUri = thisUri.slice(0, thisUri.length - window.location.hash.length);
+	var aelements = document.getElementsByTagName('A');
+	for (var i = 0; i < aelements.length; i++) {
+		var a = aelements[i].href;
+		var slideID = a.match('\#slide[0-9]{1,2}');
+		if ((slideID) && (slideID[0].slice(0,1) == '#')) {
+			var dest = findSlide(slideID[0].slice(1));
+			if (dest != null) {
+				if (aelements[i].addEventListener) {
+					aelements[i].addEventListener("click", new Function("e",
+						"if (document.getElementById('slideProj').disabled) return;" +
+						"go("+dest+" - snum); " +
+						"if (e.preventDefault) e.preventDefault();"), true);
+				} else if (aelements[i].attachEvent) {
+					aelements[i].attachEvent("onclick", new Function("",
+						"if (document.getElementById('slideProj').disabled) return;" +
+						"go("+dest+" - snum); " +
+						"event.returnValue = false;"));
+				}
+			}
+		}
+	}
+}
+
+function externalLinks() {
+	if (!document.getElementsByTagName) return;
+	var anchors = document.getElementsByTagName('a');
+	for (var i=0; i' +
+	'' +
+	'≡<\/a>' +
+	'Ø<\/a>' +
+	'«<\/a>' +
+	'»<\/a>' +
+	'
+||
+|←
+
+
+
+
+...
+
+
+...
+
+
+
+