model != rs, Foo > MyApp

[dbsrgits/dbix-class-introduction-presentation.git] / slideshow.html

diff --git a/slideshow.html b/slideshow.html
index 18f214b..47f8132 100644 (file)
--- a/slideshow.html
+++ b/slideshow.html
@@ -342,7 +342,7 @@ my @books = $book_model->search({
    </div>
 
    <div class="slide">
-<pre>package MyApp::Schema::Result::Author;
+<pre>package Foo::Schema::Result::Author;
 use strict; use warnings;
 __PACKAGE__-&gt;table('authors');
 __PACKAGE__-&gt;add_columns(
@@ -358,14 +358,14 @@ __PACKAGE__-&gt;add_columns(
 );
 __PACKAGE__-&gt;set_primary_key('id');
 __PACKAGE__-&gt;has_many( books =&gt;
-   'MyApp::Schema::Result::Book', 'author_id'
+   'Foo::Schema::Result::Book', 'author_id'
 );
 1;
 </pre>
    </div>
 
    <div class="slide">
-<pre>package MyApp::Schema::Result::Book;
+<pre>package Foo::Schema::Result::Book;
 use strict; use warnings;
 __PACKAGE__-&gt;table('books');
 __PACKAGE__-&gt;add_columns(
@@ -386,90 +386,56 @@ __PACKAGE__-&gt;add_columns(
 );
 __PACKAGE__-&gt;set_primary_key('id');
 __PACKAGE__-&gt;belongs_to( author =&gt;
-   'MyApp::Schema::Result::Author', 'author_id'
+   'Foo::Schema::Result::Author', 'author_id'
 );
 1;
 </pre>
    </div>
 
    <div class="slide">
-      <p>too much typing!  too much maintenance!</p>
-   </div>
-
-   <div class="slide">
       <h1>Schema::Loader</h1>
-      <pre>code for S::L here</pre>
-   </div>
-
-   <div class="slide">
-      <h1>splitting logic cleanly</h1>
-      <p>Foo::Schema::Result::Foo = an individual row</p>
-      <p>Foo::Schema::ResultSet::Foo = searches / results</p>
-   </div>
+      <p>DB -&gt; Perl vs Perl -&gt; DB</p>
+<pre>package Foo::Schema;
+use strict; use warnings;
+use base 'DBIx::Class::Schema::Loader';
+__PACKAGE__-&gt;loader_options({
+   naming =&gt; 'v7',
+   debug  =&gt; $ENV{DBIC_TRACE},
+});
+1;
 
-   <div class="slide">
-      <h1>using your Schema</h1>
-      <pre>example usage code goes here</pre>
-   </div>
+# elsewhere...
 
-   <div class="slide">
-      <h1>DEBUGGING</h1>
-      <pre>DBIC_TRACE=1 ./your_script.pl</pre>
+my $schema = Foo::Schema-&gt;connect($dsn, $user, $pass);
+</pre>
    </div>
 
    <div class="slide">
-      <h1>Schema::Loader</h1>
-<pre>Foo::Schema::Result::Authors-&gt;table("authors");
-Foo::Schema::Result::Authors-&gt;add_columns(
-   id =&gt; {
-      data_type     =&gt; "INT",
-      default_value =&gt; undef,
-      is_nullable   =&gt; 0,
-      size          =&gt; 8
-   },
-   title =&gt; {
-      data_type     =&gt; "VARCHAR",
-      default_value =&gt; undef,
-      is_nullable   =&gt; 1,
-      size          =&gt; 255,
-   },
-);
-Foo::Schema::Result::Authors-&gt;set_primary_key("id");</pre>
+      <h1>Splitting Logic Cleanly</h1>
+      <p>Foo::Schema::Result::Bar = individual row</p>
+      <p>Foo::Schema::ResultSet::Bar = searches / table </p>
    </div>
 
    <div class="slide">
-      <h1>Schema::Loader</h1>
-<pre>Foo::Schema::Result::Books->table("books");
-Foo::Schema::Result::Books->add_columns(
-   id =&gt; {
-      data_type     =&gt; "INT",
-      default_value =&gt; undef,
-      is_nullable   =&gt; 0,
-      size          =&gt; 8
-   },
-   name =&gt; {
-      data_type     =&gt; "VARCHAR",
-      default_value =&gt; undef,
-      is_nullable   =&gt; 1,
-      size          =&gt; 255,
-   },
-   author =&gt; {
-      data_type     =&gt; "INT",
-      default_value =&gt; undef,
-      is_nullable   =&gt; 1,
-      size          =&gt; 8
-   },
-);
-Foo::Schema::Result::Books-&gt;set_primary_key("id");</pre>
+      <h1>Using your Schema</h1>
+<pre>#!perl
+use strict; use warnings;
+use lib 'lib';
+use Foo::Schema;
+my $schema = Foo::Schema-&gt;connect($dns, $user, $pass);
+my $author_rs = $schema-&gt;resultset('Author');
+my $author    = $author_rs-&gt;create({
+   name =&gt; 'Douglas Adams',
+});
+my $book = $author-&gt;add_to_books({
+   title =&gt; '42',
+});
+</pre>
    </div>
 
    <div class="slide">
-      <h1>Schema::Loader</h1>
-<pre>Foo::Schema::Result::Authors-&gt;has_many(books =&gt; "Foo::Schema::Books",
-   { "foreign.author" =&gt; "self.id" });
-
-Foo::Schema::Result::Books-&gt;belongs_to(author =&gt; "Foo::Schema::Authors",
-   { id =&gt; "author" });</pre>
+      <h1>DEBUGGING</h1>
+      <pre>DBIC_TRACE=1 ./your_script.pl</pre>
    </div>
 
    <div class="slide">
@@ -483,10 +449,10 @@ INSERT INTO books (author, title)
 
    <div class="slide">
       <h1>overloading</h1>
-<pre>Foo::Schema::Result::Books
-Foo::Schema::ResultSet::Books
-Foo::Schema::Result::Authors
-Foo::Schema::ResultSet::Books</pre>
+<pre>Foo::Schema::Result::Book
+Foo::Schema::ResultSet::Book
+Foo::Schema::Result::Author
+Foo::Schema::ResultSet::Book</pre>
    </div>
 
    <div class="slide">
@@ -496,6 +462,8 @@ use base 'DBIx::Class';
 use strict;
 use warnings;
 
+# Result code here
+
 sub isbn {
    my $self = shift;
 
@@ -522,34 +490,17 @@ use base 'DBIx::Class';
 use strict;
 use warnings;
 
+# Result code here
+
+__PACKAGE__-&gt;load_components('InflateColumn');
 use DateTime::Format::MySQL;
 
 __PACKAGE__-&gt;<strong>inflate_column</strong>(
    <strong>date_published</strong> =&gt; {
       inflate =&gt; sub { DateTime::Format::MySQL-&gt;parse_date(shift) },
       deflate =&gt; sub { shift-&gt;ymd},
-   }
-);
-# Automatic see: DBIx::Class::InflateColumn::DateTime</pre>
-   </div>
-
-   <div class="slide">
-      <h1>Result:: (inflating)</h1>
-<pre>package Foo::Schema::Result::Books;
-use base 'DBIx::Class';
-use strict;
-use warnings;
-
-use DateTime::Format::MySQL;
-
-__PACKAGE__-&gt;inflate_column(
-   date_published =&gt; {
-      <strong>inflate =&gt; sub { DateTime::Format::MySQL-&gt;parse_date(shift) },
-      deflate =&gt; sub { shift-&gt;ymd},</strong>
-   }
+   },
 );
-# Automatic see: DBIx::Class::InflateColumn::DateTime
-# Automatic see: DBIx::Class::InflateColumn::DateTime
 # Automatic see: DBIx::Class::InflateColumn::DateTime</pre>
    </div>
 
@@ -585,62 +536,31 @@ sub by_author {
 
    <div class="slide">
       <h1>ResultSets::</h1>
-<pre>package Foo::Schema::<strong>ResultSet::Books</strong>;
-use base '<strong>DBIx::Class::ResultSet</strong>';
-sub the_ultimate_books {
-   my $self = shift;
-   <strong>return $self-&gt;search({ title =&gt; { -like =&gt; '%42%' } })</strong>
-}
-sub by_author {
-   my ( $self, $author ) = @_;
-   return $self-&gt;search({ author =&gt; $author-&gt;id })
-}
-
-1;</pre>
-   </div>
-
-   <div class="slide">
-      <h1>ResultSets::</h1>
-<pre>package Foo::Schema::ResultSet::Books;
-use base 'DBIx::Class::ResultSet';
-sub the_ultimate_books {
-   my $self = shift;
-   return $self-&gt;search({ title =&gt; { -like =&gt; '%42%' } });
-}
-sub by_author {
-   my ( $self, $author ) = @_;
-   <strong>return $self-&gt;search({ author =&gt; $author-&gt;id })</strong>
-}
-
-1;</pre>
-   </div>
-
-   <div class="slide">
-      <h1>ResultSets::</h1>
 <pre>use Foo::Schema;
-my $book_model = Foo::Schema-&gt;resultset('Books');
-my $book_rs    = $book_model-&gt;the_ultimate_books;
-my @books      = $book_rs-&gt;all;</pre>
+my $schema = Foo::Schema-&gt;connect(...);
+my $book_rs     = Foo::Schema-&gt;resultset('Book');
+my $book_search = $book_rs-&gt;the_ultimate_books;
+my @books       = $book_search-&gt;all;</pre>
    </div>
 
    <div class="slide">
-      <h1>ResultSets::chaining</h1>
-<pre>use Foo::Schema;
-my $book_model   = Foo::Schema-&gt;resultset('Books');
-my $author_model = Foo::Schema-&gt;resultset('Authors');
+      <h1>ResultSets: Chaining</h1>
+<pre>
+my $book_rs      = $schema-&gt;resultset('Book');
+my $author_rs    = $schema-&gt;resultset('Author');
 my $author       = $author_model-&gt;search({ name =&gt; 'Douglas Adams' })-&gt;single;
 my $book_rs      = $book_model-&gt;the_ultimate_books-&gt;by_author($author);
 my @books        = $book_rs-&gt;all;</pre>
    </div>
 
    <div class="slide">
-      <h1>ResultSets::chaining</h1>
-<pre>my $book_rs = $book_model
+      <h1>ResultSets: Chaining</h1>
+<pre>$book_rs = $schema-&gt;resultset('Book')
   -&gt;the_ultimate_books
   -&gt;by_author($author);</pre>
 or
 
-<pre>my $book_rs = $book_model
+<pre>my $book_rs = $schema-&gt;resultset('Book')
   -&gt;the_ultimate_books();
 $book_rs = $book_rs-&gt;by_author($author);</pre>
 <pre># Debug (SQL):