slideshow.html

   1 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
   2         "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
   3
   4 <html xmlns="http://www.w3.org/1999/xhtml">
   5
   6 <head>
   7 <title>DBIx::Class (aka DBIC)</title>
   8 <!-- metadata -->
   9 <meta name="contributor" content="youcan[64]netzgesta[46]de" />
  10 <meta name="publisher" content="s5.netzgesta.de" />
  11 <meta name="description" content="S5 1.3 is a very flexible and lightweight slide show system available for anyone to use (including transitions and scalable fonts and images)" />
  12 <meta name="keywords" content="S5, version 1.3, slide show, presentation-mode, projection-mode, powerpoint-like, scala-like, keynote-like, incremental display, scalable fonts, scalable images, transitions, notes, osf, xoxo, css, javascript, xhtml, public domain" />
  13
  14 <meta name="generator" content="S5" />
  15 <meta name="version" content="1" />
  16 <meta name="subject" content="DBIx::Class" />
  17 <meta name="author" content="See first slide" />
  18 <meta name="company" content="N/A" />
  19 <meta name="robots" content="index, follow" />
  20 <meta name="revisit-after" content="7 days" />
  21 <!-- meta additionally -->
  22 <meta http-equiv="content-type" content="text/html; charset=utf-8" />
  23 <meta http-equiv="Content-Script-Type" content="text/javascript" />
  24 <meta http-equiv="Content-Style-Type" content="text/css" /><!-- configuration parameters -->
  25 <meta name="defaultView" content="slideshow" />
  26 <meta name="controlVis" content="hidden" />
  27 <!-- configuration transition extension -->
  28 <meta name="tranSitions" content="true" />
  29 <meta name="fadeDuration" content="500" />
  30 <meta name="incrDuration" content="250" />
  31 <!-- configuration autoplay extension -->
  32 <meta name="autoMatic" content="false" />
  33 <meta name="playLoop" content="true" />
  34 <meta name="playDelay" content="10" />
  35 <!-- configuration audio extension -->
  36 <meta name="audioSupport" content="false" />
  37 <meta name="audioVolume" content="0" />
  38 <meta name="audioError" content="false" />
  39 <!-- configuration audio debug -->
  40 <meta name="audioDebug" content="false" />
  41 <!-- style sheet links -->
  42 <link rel="stylesheet" href="ui/scala_utf/slides.css" type="text/css" media="projection" id="slideProj" />
  43 <link rel="stylesheet" href="ui/scala_utf/outline.css" type="text/css" media="screen" id="outlineStyle" />
  44 <link rel="stylesheet" href="ui/scala_utf/print.css" type="text/css" media="print" id="slidePrint" />
  45 <link rel="stylesheet" href="ui/scala_utf/opera.css" type="text/css" media="projection" id="operaFix" />
  46 <!-- embedded styles -->
  47 <style type="text/css" media="all">
  48 .imgcon {width: 100%; margin: 0 auto; padding: 0; text-align: center;}
  49 #anim {width: 33%; height: 320px; position: relative;}
  50 #anim img {position: absolute; top: 0px; left: 0px;}
  51 .red {color: red;}
  52 .grey {color: gray;}
  53 </style>
  54 <!-- S5 JS -->
  55 <script src="ui/scala_utf/slides.js" type="text/javascript"></script>
  56 </head>
  57 <body>
  58
  59 <div class="layout">
  60    <div id="controls"><!-- DO NOT EDIT --></div>
  61    <div id="currentSlide"><!-- DO NOT EDIT --></div>
  62    <div id="header"></div>
  63    <div id="footer">
  64       <h1>DBIx::Class Introduction</h1>
  65       <h2>YAPC::NA 2010</h2>
  66    </div>
  67 </div>
  68
  69 <div class="presentation">
  70
  71    <div class="slide">
  72       <h1>DBIX::Class (aka DBIC)</h1>
  73       <h3>for (advanced) beginners</h3>
  74    </div>
  75
  76    <div class="slide">
  77       <h1>Authors</h1>
  78       <h4>Originally Leo Lapworth @ LPW 2009</h4>
  79       <h4>Matthew S. Trout</h4>
  80       <h4>Justin D. Hunter</h4>
  81       <h4>Arthur Axel "fREW" Schmidt</h4>
  82    </div>
  83
  84    <div class="slide">
  85       <h1>assumptions</h1>
  86       <p>You know a little about Perl and using objects</p>
  87       <p>You know a little bit about databases and using foreign keys</p>
  88       <div class="notes">
  89          <ul>
  90             <li>How many people have designed a database with Foreign Keys?</li>
  91             <li>How many people have used any ORM?<ul>
  92                <li>In Perl?<ul>
  93                   <li>DBIC?</li>
  94                   <li> Class::DBI? </li>
  95                   <li> Rose::DB?  </li>
  96                   <li> Fey?  </li>
  97                   <li> Others?  </li>
  98                </ul></li>
  99                <li>AR? </li>
 100                <li> DataMapper?  </li>
 101                <li>(N)Hibernate?</li>
 102             </ul></li>
 103          </ul>
 104       </div>
 105    </div>
 106
 107    <div class="slide">
 108       <h1>DBIx::Class?</h1>
 109       <ul>
 110          <li>ORM (object relational mapper)</li>
 111          <li>SQL &lt;-&gt; OO (using objects instead of SQL)</li>
 112          <li>Simple, powerful, complex, fab and confusing</li>
 113          <li>There are many ORMs, DBIx::Class just happens to be the best in Perl (personal opinion)</li>
 114       </ul>
 115    </div>
 116
 117    <div class="slide">
 118       <h1>point of note</h1>
 119       <p><em>"Debugging is twice as hard as writing the code in the first
 120       place. Therefore, if you write the code as cleverly as possible,
 121       you are, by definition, not smart enough to debug it." - Brian
 122       W. Kernighan</em></p>
 123
 124       <p>This talk is about making it easy so we are less likely to get
 125       confused</p>
 126    </div>
 127
 128    <div class="slide">
 129       <h1>Examples Table Setup</h1>
 130       <ul>
 131          <li>Authors</li>
 132          <li>Books</li>
 133       </ul>
 134       <em>MySQL not recommended</em>
 135    </div>
 136
 137    <div class="slide">
 138       <h1>authors table</h1>
 139 <pre>CREATE TABLE authors(
 140    id   int(8) primary key auto_increment,
 141    name varchar(255)
 142 ) engine = InnoDB DEFAULT CHARSET=utf8;</pre>
 143    </div>
 144
 145    <div class="slide">
 146       <h1>tips</h1>
 147       <p>Name tables as simple plurals (<strong>add an S</strong>) - makes relationships easier to understand</p>
 148       <p>Use a character set (<strong>UTF8</strong>) from the start (for international characters)</p>
 149    </div>
 150
 151    <div class="slide">
 152       <h1>authors table</h1>
 153 <pre>CREATE TABLE author<strong>s</strong>(
 154    id   int(8) primary key auto_increment,
 155    name varchar(255)
 156 ) engine = <strong>InnoDB</strong> DEFAULT CHARSET=<strong>utf8</strong>;</pre>
 157    </div>
 158
 159    <div class="slide">
 160       <h1>books table</h1>
 161 <pre>CREATE TABLE books(
 162    id        int(8) primary key auto_increment,
 163    title     varchar(255),
 164    author_id int(8),foreign key (author)
 165       references authors(id)
 166 ) engine = InnoDB DEFAULT CHARSET=utf8;</pre>
 167    </div>
 168
 169
 170    <div class="slide">
 171       <h1>tips</h1>
 172       <p>Name link fields as singular</p>
 173       <p>Ensure foreign key is the same type and size in both tables</p>
 174    </div>
 175
 176    <div class="slide">
 177       <h1>books table</h1>
 178 <pre>CREATE TABLE books(
 179    id        int(8) primary key auto_increment,
 180    title     varchar(255),
 181    author_id <strong>int(8)</strong>,<strong>foreign key (<em>author</em>)</strong>
 182       <strong>references <em>authors(id)</em></strong>
 183 ) engine = InnoDB DEFAULT CHARSET=utf8;</pre>
 184    </div>
 185
 186    <div class="slide">
 187       <h1>CRUD compared</h1>
 188       <ul>
 189          <li><strong>C</strong> - Create</li>
 190          <li><strong>R</strong> - Read</li>
 191          <li><strong>U</strong> - Update</li>
 192          <li><strong>D</strong> - Delete</li>
 193       </ul>
 194    </div>
 195
 196    <div class="slide">
 197       <h1>Manual (SQL)</h1>
 198    </div>
 199
 200    <div class="slide">
 201       <h1>SQL: Create</h1>
 202 <pre>my $sth = $dbh-&gt;prepare('
 203    INSERT INTO books
 204    (title, author)
 205    values (?,?)
 206 ');
 207
 208 $sth-&gt;execute(
 209   'A book title', $author_id
 210 );</pre>
 211    </div>
 212
 213    <div class="slide">
 214       <h1>SQL: Read</h1>
 215 <pre>my $sth = $dbh-&gt;prepare('
 216    SELECT title,
 217    authors.name as author_name
 218    FROM books, authors
 219    WHERE books.author = authors.id
 220 ');</pre>
 221    </div>
 222
 223    <div class="slide">
 224       <h1>SQL: Read</h1>
 225 <pre>while( my $book = $sth-&gt;fetchrow_hashref() ) {
 226   print 'Author of '
 227      . $book-&gt;{title}
 228      . ' is '
 229      . $book-&gt;{author_name}
 230      . "\n";
 231 }</pre>
 232    </div>
 233
 234    <div class="slide">
 235       <h1>SQL: Update</h1>
 236 <pre>my $update = $dbh-&gt;prepare('
 237    UPDATE books
 238    SET title = ?
 239    WHERE id = ?
 240 ');
 241
 242 $update-&gt;execute(
 243   'New title',<strong>$book_id</strong>
 244 );</pre>
 245    </div>
 246
 247    <div class="slide">
 248       <h1>SQL: Delete</h1>
 249 <pre>my $delete = $dbh-&gt;prepare('
 250    DELETE FROM books
 251    WHERE id = ?
 252 ');
 253
 254 $delete-&gt;execute(<strong>$book_id</strong>);</pre>
 255    </div>
 256
 257    <div class="slide">
 258       <h1>DBIx::Class</h1>
 259    </div>
 260
 261    <div class="slide">
 262       <h1>DBIC: Create</h1>
 263 <pre>my $book = $book_model-&gt;create({
 264    title  =&gt; 'A book title',
 265    author =&gt; $author_id,
 266 });</pre>
 267       <p>Look ma, no SQL!</p>
 268    </div>
 269
 270    <div class="slide">
 271       <h1>DBIC: Create</h1>
 272 <pre>my $pratchett = $author_model-&gt;create({
 273    name =&gt; 'Terry Pratchett',
 274 });</pre>
 275    </div>
 276
 277    <div class="slide">
 278       <h1>DBIC: Create</h1>
 279 <pre>my $book = $pratchett-&gt;create_related(
 280   <strong>books</strong> =&gt; {
 281    title =&gt; 'Another Discworld book',
 282 });</pre>
 283 <strong>or</strong>
 284 <pre>my $book = $pratchett-&gt;add_to_<strong>books</strong>({
 285    title =&gt; 'Another Discworld book',
 286 });</pre>
 287    </div>
 288
 289    <div class="slide">
 290       <h1>DBIC: Read</h1>
 291       <p>DBIx::Class - Lots of ways to do the same thing...</p>
 292       <p><em>"There is more than one way to do it (TIMTOWTDI, usually pronounced "Tim Toady") is a Perl motto"</em></p>
 293    </div>
 294
 295    <div class="slide">
 296       <h1>DBIC: Read</h1>
 297 <pre>my $book = $book_model-&gt;find($book_id);
 298
 299 my $book = $book_model-&gt;search({
 300    title =&gt; 'A book title',
 301 }, { rows =&gt; 1 })-&gt;single;
 302
 303 my @books = $book_model-&gt;search({
 304    author =&gt; $author_id,
 305 })-&gt;all;</pre>
 306    </div>
 307
 308    <div class="slide">
 309       <h1>DBIC: Read</h1>
 310 <pre>while( my $book = $books_rs-&gt;next ) {
 311  print 'Author of '
 312     . $book-&gt;title
 313     . ' is '
 314     . $book-&gt;author-&gt;name
 315     . "\n";
 316 }</pre>
 317    </div>
 318
 319    <div class="slide">
 320       <h1>DBIC: Read</h1>
 321 <pre>my $books_rs = $book_rs-&gt;search({
 322    author =&gt; $author_id,
 323 });</pre>
 324       <p>Search takes SQL::Abstract formatted queries</p>
 325       <pre>&gt; perldoc SQL::Abstract</p>
 326    </div>
 327
 328    <div class="slide">
 329       <h1>DBIC: Update</h1>
 330 <pre>$book-&gt;update({
 331   title =&gt; 'New title',
 332 });</pre>
 333    </div>
 334
 335    <div class="slide">
 336       <h1>DBIC: Delete</h1>
 337 <pre>$book-&gt;delete;</pre>
 338    </div>
 339
 340    <div class="slide">
 341       <h1>Creating models</h1>
 342    </div>
 343
 344    <div class="slide">
 345 <pre>package Foo::Schema::Result::Author;
 346 use strict; use warnings;
 347 __PACKAGE__-&gt;table('authors');
 348 __PACKAGE__-&gt;add_columns(
 349   id =&gt; {
 350     data_type =&gt; 'int',
 351     size      =&gt; 8,
 352   },
 353   title =&gt; {
 354     data_type   =&gt; 'varchar',
 355     is_nullable =&gt; 1,
 356     size        =&gt; 255,
 357   },
 358 );
 359 __PACKAGE__-&gt;set_primary_key('id');
 360 __PACKAGE__-&gt;has_many( books =&gt;
 361    'Foo::Schema::Result::Book', 'author_id'
 362 );
 363 1;
 364 </pre>
 365    </div>
 366
 367    <div class="slide">
 368 <pre>package Foo::Schema::Result::Book;
 369 use strict; use warnings;
 370 __PACKAGE__-&gt;table('books');
 371 __PACKAGE__-&gt;add_columns(
 372   id =&gt; {
 373     data_type =&gt; 'int',
 374     size      =&gt; 8,
 375   },
 376   name =&gt; {
 377     data_type   =&gt; 'varchar',
 378     is_nullable =&gt; 1,
 379     size        =&gt; 255,
 380   },
 381   author_id =&gt; {
 382     data_type   =&gt; 'int',
 383     size        =&gt; 8,
 384     is_nullable =&gt; 1, # &lt;-- probably should be 0
 385   },
 386 );
 387 __PACKAGE__-&gt;set_primary_key('id');
 388 __PACKAGE__-&gt;belongs_to( author =&gt;
 389    'Foo::Schema::Result::Author', 'author_id'
 390 );
 391 1;
 392 </pre>
 393    </div>
 394
 395    <div class="slide">
 396       <h1>Schema::Loader</h1>
 397       <p>DB -&gt; Perl vs Perl -&gt; DB</p>
 398 <pre>package Foo::Schema;
 399 use strict; use warnings;
 400 use base 'DBIx::Class::Schema::Loader';
 401 __PACKAGE__-&gt;loader_options({
 402    naming =&gt; 'v7',
 403    debug  =&gt; $ENV{DBIC_TRACE},
 404 });
 405 1;
 406
 407 # elsewhere...
 408
 409 my $schema = Foo::Schema-&gt;connect($dsn, $user, $pass);
 410 </pre>
 411    </div>
 412
 413    <div class="slide">
 414       <h1>Splitting Logic Cleanly</h1>
 415       <p>Foo::Schema::Result::Bar = individual row</p>
 416       <p>Foo::Schema::ResultSet::Bar = searches / table </p>
 417    </div>
 418
 419    <div class="slide">
 420       <h1>Using your Schema</h1>
 421 <pre>#!perl
 422 use strict; use warnings;
 423 use lib 'lib';
 424 use Foo::Schema;
 425 my $schema = Foo::Schema-&gt;connect($dns, $user, $pass);
 426 my $author_rs = $schema-&gt;resultset('Author');
 427 my $author    = $author_rs-&gt;create({
 428    name =&gt; 'Douglas Adams',
 429 });
 430 my $book = $author-&gt;add_to_books({
 431    title =&gt; '42',
 432 });
 433 </pre>
 434    </div>
 435
 436    <div class="slide">
 437       <h1>DEBUGGING</h1>
 438       <pre>DBIC_TRACE=1 ./your_script.pl</pre>
 439    </div>
 440
 441    <div class="slide">
 442       <h1>SQL - debugging</h1>
 443 <pre>INSERT INTO authors (name)
 444    VALUES (?): 'Douglas Adams'
 445
 446 INSERT INTO books (author, title)
 447    VALUES (?, ?): '5', '42'</pre>
 448    </div>
 449
 450    <div class="slide">
 451       <h1>overloading</h1>
 452 <pre>Foo::Schema::Result::Book
 453 Foo::Schema::ResultSet::Book
 454 Foo::Schema::Result::Author
 455 Foo::Schema::ResultSet::Book</pre>
 456    </div>
 457
 458    <div class="slide">
 459       <h1>Result::</h1>
 460 <pre>package Foo::Schema::Result::Book;
 461 use base 'DBIx::Class::Core';
 462 use strict;
 463 use warnings;
 464
 465 # Result code here
 466
 467 sub isbn {
 468    my $self = shift;
 469
 470    # search amazon or something
 471    my $api = Amazon::API-&gt;book({
 472       title =&gt; $self-&gt;title
 473    });
 474
 475    return $api-&gt;isbn;
 476 }
 477
 478 1;</pre>
 479    </div>
 480
 481    <div class="slide">
 482       <h1>Result::</h1>
 483 <pre>print $book-&gt;isbn;</pre>
 484    </div>
 485
 486    <div class="slide">
 487       <h1>Result:: (inflating)</h1>
 488 <pre>package Foo::Schema::Result::Book;
 489 use base 'DBIx::Class::Core';
 490 use strict;
 491 use warnings;
 492
 493 # Result code here
 494
 495 __PACKAGE__-&gt;load_components('InflateColumn');
 496 use DateTime::Format::MySQL;
 497
 498 __PACKAGE__-&gt;<strong>inflate_column</strong>(
 499    <strong>date_published</strong> =&gt; {
 500       inflate =&gt; sub { DateTime::Format::MySQL-&gt;parse_date(shift) },
 501       deflate =&gt; sub { shift-&gt;ymd},
 502    },
 503 );
 504 # Automatic see: DBIx::Class::InflateColumn::DateTime</pre>
 505    </div>
 506
 507    <div class="slide">
 508       <h1>Result:: (deflating)</h1>
 509 <pre>$book-&gt;date_published(DateTime-&gt;now);
 510 $book-&gt;update;</pre>
 511    </div>
 512
 513    <div class="slide">
 514       <h1>Result:: (inflating)</h1>
 515 <pre>my $date_published = $book-&gt;date_published;
 516 print $date_published-&gt;month_abbr;</pre>
 517
 518 <strong><em>Nov</em></strong>
 519    </div>
 520
 521    <div class="slide">
 522       <h1>ResultSets::</h1>
 523 <pre>package Foo::Schema::ResultSet::Books;
 524 use base 'DBIx::Class::ResultSet';
 525 sub the_ultimate_books {
 526    my $self = shift;
 527    return $self-&gt;search({ title =&gt; { -like =&gt; '%42%' } });
 528 }
 529 sub by_author {
 530    my ( $self, $author ) = @_;
 531    return $self-&gt;search({ author =&gt; $author-&gt;id })
 532 }
 533
 534 1;</pre>
 535    </div>
 536
 537    <div class="slide">
 538       <h1>ResultSets::</h1>
 539 <pre>use Foo::Schema;
 540 my $schema = Foo::Schema-&gt;connect(...);
 541 my $book_rs     = Foo::Schema-&gt;resultset('Book');
 542 my $book_search = $book_rs-&gt;the_ultimate_books;
 543 my @books       = $book_search-&gt;all;</pre>
 544    </div>
 545
 546    <div class="slide">
 547       <h1>ResultSets: Chaining</h1>
 548 <pre>
 549 my $book_rs      = $schema-&gt;resultset('Book');
 550 my $author_rs    = $schema-&gt;resultset('Author');
 551 my $author       = $author_model-&gt;search({ name =&gt; 'Douglas Adams' })-&gt;single;
 552 my $book_rs      = $book_model-&gt;the_ultimate_books-&gt;by_author($author);
 553 my @books        = $book_rs-&gt;all;</pre>
 554    </div>
 555
 556    <div class="slide">
 557       <h1>ResultSets: Chaining</h1>
 558 <pre>$book_rs = $schema-&gt;resultset('Book')
 559   -&gt;the_ultimate_books
 560   -&gt;by_author($author);</pre>
 561 or
 562
 563 <pre>my $book_rs = $schema-&gt;resultset('Book')
 564   -&gt;the_ultimate_books;
 565 $book_rs = $book_rs-&gt;by_author($author);</pre>
 566 <pre># Debug (SQL):
 567
 568 # SELECT me.id, me.title, me.date_published, me.author
 569 #   FROM books me
 570 #   WHERE ( ( ( author = ? ) AND ( title LIKE ? ) ) ): '5', '%42%'
 571 #   WHERE ( ( ( author = ? ) AND ( title LIKE ? ) ) ): '5', '%42%'</pre>
 572    </div>
 573
 574    <div class="slide">
 575       <h1>ResultSets::chaining</h1>
 576 <pre>my $rs = $book_model
 577   -&gt;category('childrens')
 578   -&gt;by_author($author)
 579   -&gt;published_after('1812')
 580   -&gt;first_page_contains('once upon')
 581   -&gt;rating_greater_than(4);
 582
 583 my @books = $rs-&gt;all;</pre>
 584    </div>
 585
 586    <div class="slide">
 587       <h1>overloading before new record</h1>
 588       <pre>package Foo::Schema::Result::Author;
 589 use base 'DBIx::Class::Core';
 590
 591 sub new {
 592    my ( $class, $attrs ) = @_;
 593    # Mess with $attrs
 594    my $new = $class-&gt;next::method($attrs);
 595    return $new
 596 }
 597
 598 1;</pre>
 599
 600    <div class="slide">
 601       <h1>Relationships</h1>
 602    </div>
 603
 604    <div class="slide">
 605       <h1>Multiple Authors</h1>
 606    </div>
 607
 608    <div class="slide">
 609       <h1>a few relationships</h1>
 610       (really need picture here)
 611       (authors -- author_link_to_book -- books)
 612    </div>
 613
 614    <div class="slide">
 615       <h1>Join Table</h1>
 616 <pre>CREATE TABLE author_and_books(
 617   book_id    int(8),
 618   author_id  int(8),
 619   foreign key (book_id)     references books(id),
 620   foreign key (author_id)   references authors(id)
 621 ) engine = InnoDB DEFAULT CHARSET=utf8;
 622
 623 ALTER TABLE `books` DROP `author`;</pre>
 624    </div>
 625
 626    <div class="slide">
 627       <h1>has_many</h1>
 628    </div>
 629
 630    <div class="slide">
 631       <h1>has_many</h1>
 632 <pre>package Foo::Schema::<strong>Result::Book</strong>;
 633
 634 __PACKAGE__-&gt;has_many( author_and_books =&gt;
 635    'Foo::Schema::Result::Author_Book', 'book_id'
 636 );
 637    </div>
 638
 639    <div class="slide">
 640       <h1>belongs_to</h1>
 641    </div>
 642
 643    <div class="slide">
 644       <h1>belongs_to</h1>
 645 <pre>package Foo::Schema::<strong>Result::Author_Book</strong>;
 646
 647 __PACKAGE__-&gt;belongs_to(
 648    book =&gt;
 649    'Foo::Schema::Result::Book', 'book_id'
 650 );
 651 </pre>
 652    </div>
 653
 654    <div class="slide">
 655       <h1>same for Authors</h1>
 656    </div>
 657
 658    <div class="slide">
 659       <h1>many_to_many</h1>
 660    </div>
 661
 662    <div class="slide">
 663       <h1>many_to_many</h1>
 664       <pre>package Foo::Schema::<strong>Result::Book</strong>;
 665 use base 'DBIx::Class::Core';
 666
 667 __PACKAGE__-&gt;many_to_many(
 668    authors =&gt; 'author_and_books', 'author'
 669 );
 670
 671 1;
 672 </pre>
 673    </div>
 674
 675    <div class="slide">
 676       <h1>many_to_many</h1>
 677       <pre>package Foo::Schema::<strong>Result::Book</strong>;
 678 use base 'DBIx::Class::Core';
 679
 680 __PACKAGE__-&gt;many_to_many(
 681    authors <strong># Accessor name</strong>
 682    =&gt; "author_and_books", <strong># has_many</strong>
 683    'author' <strong># foreign relationship name</strong>
 684 );
 685
 686 1;</pre>
 687    </div>
 688
 689    <div class="slide">
 690       <h1>many_to_many</h1>
 691       <pre>package Foo::Schema::Result::Author;
 692 use base 'DBIx::Class::Core';
 693
 694 __PACKAGE__-&gt;many_to_many(
 695    "books" <strong># Accessor Name</strong>
 696    =&gt; "author_and_books", <strong># has_many accessor_name</strong>
 697    'book' <strong># foreign relationship name</strong>
 698 );
 699
 700 1;
 701 </pre>
 702    </div>
 703
 704    <div class="slide">
 705       <h1>Using many_to_many</h1>
 706       <pre>#!perl
 707 use Foo::Schema;
 708 my $schema    = Foo::Schema-&gt;connect(...);
 709 my $author_rs = $schema-&gt;resultset('Authors');
 710 my $author    = $author_model-&gt;search({
 711    name =&gt; 'Douglas Adams',
 712 })-&gt;single;
 713 $author-&gt;add_to_books({
 714    title =&gt; 'A new book',
 715 });</pre>
 716    </div>
 717
 718    <div class="slide">
 719       <h1>using many_to_many</h1>
 720       <pre>my $author = $author_model-&gt;search({
 721    name =&gt; 'Douglas Adams',
 722 })-&gt;single;
 723 <strong>$author-&gt;add_to_books({
 724    title =&gt; 'A new book',
 725 });</strong>
 726
 727 # SELECT me.id, me.name FROM authors me
 728 #     WHERE ( name = ? ): 'Douglas Adams';
 729 # INSERT INTO books (title) VALUES (?): 'A new book';
 730 # INSERT INTO author_and_books (author, book)
 731 #     VALUES (?, ?): '5', '2';</pre>
 732    </div>
 733
 734    <div class="slide">
 735       <h1>using many_to_many</h1>
 736       <pre>$author-&gt;add_to_books($book);
 737
 738 $book-&gt;add_to_authors($author_1);
 739 $book-&gt;add_to_authors($author_2);</pre>
 740    </div>
 741
 742    <div class="slide">
 743       <h1>in 16 lines of code</h1>
 744    </div>
 745
 746    <div class="slide">
 747       <h1>errors</h1>
 748       <p>Read them closely!</p>
 749    </div>
 750
 751    <div class="slide">
 752       <h1>error messages</h1>
 753       <pre>DBIx::Class::Schema::Loader::connection(): Failed to load external class definition for 'Foo::Schema::Result::Authors': Can't locate object method "many_to_many" via package "Foo::Schema::Result::Author" at lib/Foo/Schema/Result/Authors.pm line 9.Compilation failed in require at /Library/Perl/5.8.8/DBIx/Class/Schema/Loader/Base.pm line 292.</pre>
 754    </div>
 755
 756    <div class="slide">
 757       <h1>error messages</h1>
 758    <pre>DBIx::Class::Schema::Loader::connection(): Failed to load external class definition for 'Foo::Schema::Result::Authors': Can't locate object method "many_to_many" via package "Foo::Schema::<strong>Result::Author</strong>" at lib/Foo/Schema/<strong>Result/Authors.pm</strong> line 9.Compilation failed in require at /Library/Perl/5.8.8/DBIx/Class/Schema/Loader/Base.pm line 292.</pre>
 759    </div>
 760
 761    <div class="slide">
 762       <h1>errors</h1>
 763       <ul>
 764          <li>Turn on debugging</li>
 765          <li>Read error messages (sometimes useful!)</li>
 766          <li>Check field names</li>
 767          <li>Check package names</li>
 768          <li>Check which database you are connected to (dev/test/live?) - repeat above</li>
 769       </ul>
 770    </div>
 771
 772    <div class="slide">
 773       <h1>bonus slides!</h1>
 774    </div>
 775
 776    <div class="slide">
 777       <h1>Template Toolkit</h1>
 778       <ul>
 779          <li><pre>[% author.books.count %]</pre> not working?</li>
 780          <li>TT all methods are called in list context</li>
 781          <li><pre>[% author.books<strong>_rs</strong>.count %]</pre> scalar context</li>
 782          <li><em>Available for all relationships</em></li>
 783       </ul>
 784    </div>
 785
 786    <div class="slide">
 787       <h1>Catalyst</h1>
 788       <pre>package Your::App::Model::<strong>Foo</strong>;
 789 use base qw(<strong>Catalyst::Model::Schema::Schema</strong>);
 790
 791 use strict;
 792 use warnings;
 793
 794 __PACKAGE__-&gt;config(
 795   schema_class =&gt; '<strong>Foo::Schema</strong>',
 796 );
 797
 798 1;</pre>
 799    <p>Keep your Schema in a <em>separate</em> package to your Catalyst application</p>
 800    </div>
 801
 802    <div class="slide">
 803       <h1>Catalyst</h1>
 804 <pre>sub action_name : Local {
 805   my ($self, $c) = @_;
 806
 807   my $model = $c-&gt;model('Schema::Foo');
 808   my $author_model = $model-&gt;resultset('Authors');
 809
 810 }
 811
 812 1;</pre>
 813    </div>
 814
 815 </div>
 816 </body>
 817 </html>